home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / mebbs / yuppiewr.lha / YUPPIE / YuppieWars.REXX < prev   
OS/2 REXX Batch file  |  1994-06-02  |  149KB  |  4,074 lines
  1. /* YUPPIE WARS! 22-Nov-90/21-Feb-91  -  Dave Cole */
  2. /* Special thanks to Mike Soucy for the Slot Machine routine! */
  3. /* Special thanks to D.F. Duck for the Craps routine! */
  4. /* Special thanks to Jim Foley for a couple suggestions! & Mem-Safeguard!*/
  5. /* Converted to StarNet by Keith Thibodeaux */
  6. /* Re-Converted to Mebbsnet >1.5x by Robert Lehman */
  7. /* Sysop of SouthWinds bbs (219) 289-3275 */
  8.  
  9. Signal on ERROR
  10. SIGNAL ON SYNTAX
  11. SIGNAL ON IOERR
  12. SIGNAL ON FAILURE
  13.  
  14. parse arg LineNumber
  15.  
  16. OPTIONS RESULTS
  17.  
  18. DoorName = "Yuppiewars"
  19.  
  20. if( ~show( 'l', "mebbsarexx.library" ) )then do
  21. if( ~addlib( "mebbsarexx.library", 0, -30, 0 ) )then do
  22.       say "Could not open library"
  23.       exit 10
  24.    end
  25. end
  26.  
  27.  
  28. /* Begin INSTALLATION HERE. Edit until END OF INSTALLATION */
  29.  
  30. bullopt = 1               /* If you want a bulletin of high scores make this a 1. 0 if no */
  31.  
  32. bullpath = 'bulletins:bul18.txt' /* Full path with name to your bulletins menu */
  33.  
  34. /*     WARNING The Bulletins must be set up right. This routine is called
  35.        at the exit routine so if it is not set up right then you are
  36.        asking for trouble. The exit routine is called when an error 
  37.        occurs, a person drops carrier or when he exits the game. This 
  38.        routine can cause your drive to go into an ENDLESS loop so make
  39.        sure the bulletins path is up right on ALL the YUPPIE_#.prx files
  40.        and test it to make sure the bulletin is being created. */
  41.      
  42. bbsname = 'SouthWinds'             /* Your bbs name here.  */
  43. dasysop = 'ROBERT LEHMAN'         /* Put your name here. "uppercase" */
  44. handy = 'NASTRADAMUS'            /* Put your handle here "uppercase"*/
  45. magicword = 'Passwired'         /* Put a password in here for sysop editor 8 is the magic key */
  46.  
  47. /* END OF INSTALLATION */
  48.  
  49.  
  50.  /* Say loading the game...   */
  51. call getvar doorname,linenumber, 1
  52. NAME = UPPER(RESULT)
  53.  
  54. CLS = 'H'
  55. call message doorname,linenumber, CLS,1
  56. call message doorname,linenumber, 'Loading Yuppie Wars...',1
  57.  
  58.  /* Define a few variables... */
  59.  
  60. howm = 0       /* PUT HOW MANY PEOPLE ARE ALREADY PLAYING HERE!  VERY */
  61.                /* IMPORTANT THAT YOU DO THIS! IF NONE THAN LEAVE AS 0. */
  62.                /* (ONLY CHANGE THIS WHEN FIRST INSTALLING THE PROGRAM) */
  63.              /* (WHEN OTHER USERS ARE ADDED THE PROGRAM WILL COMPENSATE) */
  64.              /* ALSO!  ONLY edit this when 'STATS' file is deleted! */
  65.  
  66. file.1='doors:Yuppie/Instructions1';file.2='doors:Yuppie/Instructions2';file.6='doors:Yuppie/NEWS'
  67. file.3='doors:Yuppie/Instructions3';file.4='doors:Yuppie/Instructions4';file.5='doors:Yuppie/Instructions5'
  68. mainpath ='doors:yuppie/'
  69. ver='2.0'
  70. lowmem = 150000
  71. maincount = 0
  72. call getvar doorname,linenumber, 21; handle = upper(result)
  73. call getvar doorname,linenumber, 10; LINES = upper(result) - 2
  74. call getvar doorname,linenumber, 20; access = result
  75. call getvar doorname,linenumber, 8
  76. gfx = result 
  77.  
  78.  
  79.  
  80. if gfx = 1 then do
  81. RED = '';GRE = '';YEL = '';BLU = '';MAG = '';CYA = '';WHI = ''
  82. WhiBlk = '';BluCya = '';WhiGre = '';RedMag = '';ITAL = '';UNDER = '';BOLD = '';RESET = ''
  83. end;else do
  84. RED = '';GRE = '';YEL = '';BLU = '';MAG = '';CYA = '';WHI = ''
  85. WhiBlk = '';BluCya = '';WhiGre = '';RedMag = '';ITAL = '';UNDER = '';BOLD = '';RESET = ''
  86. end
  87. sysop=0    ; if access=31 then sysop=1    /* For further versions? */
  88. time=time(); date=date()
  89. BELL=''
  90. blanks = '                                 '
  91. day = 0
  92. if exists(mainpath'INUSE') then do            
  93.       call open file, (MAINPATH'INUSE'), 'R'
  94.       WHOON = readln(file)
  95.       call message doorname,linenumber, cls,1
  96.       call message doorname,linenumber, 'Yuppie Wars in currently being played by 'WHOON' on the other line.',1
  97.       call message doorname,linenumber, 'Try back in a little while...',1
  98.       call message doorname,linenumber, '',1
  99.       call close file
  100.       call hotkey doorname,linenumber, 'Press Return..'      
  101.       call checkca
  102.       signal qexit
  103. end
  104.  
  105. if ~exists(MAINPATH'INUSE') then do
  106.       call open file, (MAINPATH'INUSE'), 'W'
  107.            call writeln file, HANDLE
  108.            call close file
  109.    end
  110.  
  111.  
  112. if ~exists('doors:Yuppie/NEWS') then do
  113.    call open(news,'doors:Yuppie/NEWS','W')
  114.          call writeln(news,' ')
  115.          call writeln(news,'         'BLUCYA'   -=< The Yuppie Times >=-   'RESET' ')
  116.          call writeln(news,' 'RED'               For 'date' ')
  117.          call writeln(news,' 'CYA)
  118.    call close(news)
  119.   end
  120. if ~exists('doors:Yuppie/STATS') then do
  121.    call open(dc,'doors:Yuppie/STATS','W')
  122.    call writeln(dc,date)
  123.    call writeln(dc,day)
  124.    call writeln(dc,howm)
  125.    call close(dc)
  126.   end
  127. if exists('doors:Yuppie/STATS') then do
  128.    call open(dc,'doors:Yuppie/STATS','R')
  129.    dt = readln(dc)
  130.    day = readln(dc)
  131.    howm = readln(dc)
  132.    if howm = ' ' | howm = '' then howm = 1
  133.    call close(dc)
  134.    if date ~= dt then do
  135.       day = day + 1
  136.       if exists('doors:Yuppie/NEWS') then do
  137.          call open(news,'doors:Yuppie/NEWS','A')
  138.          call writeln(news,' ')
  139.          call writeln(news,'         'BLUCYA'   -=< The Yuppie Times >=-   'RESET' ')
  140.          call writeln(news,' 'RED'               For 'date' ')
  141.          call writeln(news,' 'CYA)
  142.          call close(news)
  143.       end
  144.    call open(dc,'doors:Yuppie/STATS','W')
  145.    call writeln(dc,date)
  146.    call writeln(dc,day)
  147.    call writeln(dc,howm)
  148.    call close(dc)
  149.    end
  150. end
  151. call message doorname,linenumber, '.',1
  152. if day = 5 then do
  153.    day = 0
  154.    address command "delete "||file.6
  155.    call open(news,'doors:Yuppie/NEWS','W')
  156.    call writeln(news,' ')
  157.    call writeln(news,'         'BLUCYA'   -=< The Yuppie Times >=-   'RESET' ')
  158.    call writeln(news,' 'RED'               For 'date' ')
  159.    call writeln(news,' 'CYA)
  160.    call writeln(news,'Newspaper was reset on 'date'.')
  161.    call close(news)
  162.    call open(dc,'doors:Yuppie/STATS','W')
  163.    call writeln(dc,date)
  164.    call writeln(dc,day)
  165.    call writeln(dc,howm)
  166.    call close(dc)
  167.   end
  168.  
  169. if exists('doors:Yuppie/NEWS') then do
  170.    call open(news,'doors:Yuppie/NEWS','A')
  171.    call writeln(news,''handle' joins us at 'time', 'date'.')
  172.   end
  173.  
  174. if ~exists('doors:Yuppie/TopOnes') then do
  175.    call open(top10,'doors:Yuppie/TopOnes','W')
  176.    do i = 1 to 10
  177.       call writeln(top10,'0' '..........')
  178.    end
  179.    call close(top10)
  180.   end
  181.  
  182. if ~exists('doors:Yuppie/PLAYERS') then do
  183.    call open(play,'doors:Yuppie/PLAYERS','W')
  184.    do i = 1 to howm
  185.       call writeln(play,'0' '...........')
  186.    end
  187.    call close(play)
  188.   end
  189. call message doorname,linenumber, '.',1
  190.  
  191. /* WHAT THE WEAPONS ARE */
  192. wep1 = 'Squirt Gun'
  193. wep2 = 'Spitwad Launcher'
  194. wep3 = 'Frisbee'
  195. wep4 = 'Laser Tag Gun'
  196. wep5 = 'Paint Ball Gun'
  197. wep6 = 'Darts'
  198. wep7 = 'Baseball'
  199. wep8 = 'Bart Simpson Doll'
  200. wep9 = 'Chainsaw'
  201. wep10 = 'Teenage Mutant Ninja Turtle Doll'
  202. wep11 = 'New Kids On The Block Poster'
  203. wep12 = 'New Kids On The Block CD'
  204.      /* WHAT THE VEHICLES ARE */
  205. arm1 = 'Barbie Ferrari'
  206. arm2 = 'Roller Skates'
  207. arm3 = 'Vision Skateboard'
  208. arm4 = 'Go-Cart'
  209. arm5 = '10-Speed Bike'
  210. arm6 = 'Suzuki Motorbike'
  211. arm7 = 'BMW Motorcycle'
  212. arm8 = 'Yugo'
  213. arm9 = 'Volkswagon'
  214. arm10 = 'Ferrari F40'
  215. arm11 = 'Corvette Mako Shark'
  216. arm12 = 'Stealth Bomber'
  217.      /* THE RANKS */
  218. ran1 = 'Window_Shopper'
  219. ran2 = 'Browser'
  220. ran3 = 'Consumer'
  221. ran4 = 'Credit_Card_User'
  222. ran5 = 'Bouncy_Check_Writer'
  223. ran6 = 'Blue_Collar_Worker'
  224. ran7 = 'Republican'
  225. ran8 = 'Millionare_Tycoon'
  226. ran9 = 'Chairman_of_Macys_Department_Store'
  227. ran10 = 'President_of_Macys_Department_Store'
  228. ran11 = 'Founder_of_Macys_Department_Store'
  229. ran12 = 'THE_ONE.'
  230.     /* BEGINNING GUY STATS */
  231. turnsleft = 26
  232. maxturns = 26
  233. maxpoints = 30
  234. hitpoints = 30
  235. points = 6100
  236. money = 5000
  237. armor = arm1
  238. weapon = wep1
  239. rank = ran1
  240. canfight = 4
  241. deadf = 0
  242. killer = 'NOBODY'
  243. kills = 0
  244. bmoney = 1000
  245. call message doorname,linenumber, '.',1
  246.     /* LETS BEGIN THE GAME! */
  247. if ~exists('doors:Yuppie/'handle'.dat') then do
  248.    howm = howm + 1
  249.   end
  250. if exists('doors:Yuppie/'handle'.dat') then do
  251.    call open(File,'doors:Yuppie/'handle'.DAT','R')
  252.    turnsleft = readln(File)
  253.    maxpoints = readln(File)
  254.    hitpoints = readln(File)
  255.    points = readln(File)
  256.    money = readln(File)
  257.    armor = readln(File)
  258.    weapon = readln(File)
  259.    rank = readln(File)
  260.    canfight = readln(File)
  261.    lastpl = readln(File)
  262.    deadf = readln(File)
  263.    killer = readln(File)
  264.    kills = readln(File)
  265.    bmoney = readln(File)
  266.   end
  267. call close(File)
  268. call message doorname,linenumber, '.',1
  269. if lastpl ~= date then do
  270.    call message doorname,linenumber, ' 'BELL,1
  271.    call message doorname,linenumber, MAG'Running Maintenance....',1
  272.    address command "wait 1"
  273.    call message doorname,linenumber, YEL'  You have 'WHI'25'YEL' fresh turns!',1
  274.    turnsleft = 26
  275.    rannum = RANDOM(10,50,Time('s'))
  276.    hitpoints = hitpoints + rannum
  277.    if hitpoints > maxpoints then hitpoints = maxpoints
  278.    call message doorname,linenumber, YEL'  You have gained 'WHI''rannum''YEL' hitpoints!',1
  279.    money = money + 2000
  280.    call message doorname,linenumber, YEL'  You have earned 'WHI'$2000'YEL'!',1
  281.    call message doorname,linenumber, RED'  You are all set up and ready to go!',1
  282.    canfight = 4
  283.    call message doorname,linenumber, ' ',1
  284.    if deadf = 1 then do
  285.       call message doorname,linenumber, RED' 'KILLER' BEAT YOU ON THE HIGHWAY!',1
  286.       call message doorname,linenumber, ' ',1
  287.    end
  288.    deadf = 0
  289.    address command "wait 1"
  290.   call hotkey doorname,linenumber, 'Press 'RED'RETURN'RESET' when finished: '
  291.   call checkca 
  292.    end
  293. call CHECKRANK
  294. call EVENER
  295. signal TITLE
  296.  
  297. CHECKRANK:
  298. if kills >= 17 then rank = ran2
  299. if kills >= 25 then rank = ran3
  300. if kills >= 35 then rank = ran4
  301. if kills >= 45 then rank = ran5
  302. if kills >= 60 then rank = ran6
  303. if kills >= 75 then rank = ran7
  304. if kills >= 100 then rank = ran8
  305. if kills >= 130 then rank = ran9
  306. if kills >= 160 then rank = ran10
  307. if kills >= 215 then rank = ran11
  308. if kills >= 300 then rank = ran12
  309. if rank = ran2 then maxpoints = 40
  310. if rank = ran3 then maxpoints = 50
  311. if rank = ran4 then maxpoints = 60
  312. if rank = ran5 then maxpoints = 75
  313. if rank = ran6 then maxpoints = 90
  314. if rank = ran7 then maxpoints = 100
  315. if rank = ran8 then maxpoints = 120
  316. if rank = ran9 then maxpoints = 140
  317. if rank = ran10 then maxpoints = 170
  318. if rank = ran11 then maxpoints = 200
  319. if rank = ran12 then maxpoints = 250
  320. return
  321.  
  322. EVENER:
  323. zod1 = compress(hitpoints,'0123456789')
  324. zod2 = compress(points,'0123456789')
  325. zod3 = compress(money,'0123456789')
  326. zod4 = compress(bmoney,'0123456789')
  327. if zod1 = '.' then do
  328.  parse var hitpoints hit1 '.' hit2
  329.  hitpoints = hit1
  330.  hitpoints = hitpoints + 1
  331. end
  332. if zod2 = '.' then do
  333.  parse var points poi1 '.' poi2
  334.  points = poi1
  335.  points = points + 1
  336. end
  337. if zod3 = '.' then do
  338.  parse var money moy1 '.' moy2
  339.  money = moy1
  340.  money = money + 1
  341. end
  342. if zod4 = '.' then do
  343.  parse var bmoney bmy1 '.' bmy2
  344.  bmoney = bmy1
  345.  bmoney = bmoney + 1
  346. end
  347. return
  348.  
  349. TITLE:
  350. call message doorname,linenumber, CLS,1
  351. call message doorname,linenumber, ' ',1
  352. call message doorname,linenumber, ' ',1
  353. call message doorname,linenumber, ' ',1
  354. call message doorname,linenumber, RED 'LONG AGO, IN A SHOPPING MALL FAR FAR AWAY...',1
  355. call message doorname,linenumber, BLU '                          ___  ___    ___         __  ___  ___',1
  356. call message doorname,linenumber, BLU '               /  / /  / /  / /  / / /      \   \ \ \ \  \ \',1
  357. call message doorname,linenumber, RED '        ------'BLU'/__/'RED'-'BLU'/'RED'--'BLU'/'RED'-'BLU'/__/'RED'-'BLU'/__/'RED'-'BLU'/'RED'-'BLU'/_'RED'-------'BLU'\'RED'---'BLU'\'RED'-'BLU'\_\'RED'-'BLU'\__\'RED'-'BLU'\__'RED'------',1 ;mn = '  Robert Lehman #M3005';me = 'SouthWinds bbs, 219-289-3275 VFast. Maxnet 90:91/0'
  358. call message doorname,linenumber, RED '       ---------'BLU'/'RED'-'BLU'/'RED'--'BLU'/'RED'-'BLU'/'RED'----'BLU'/'RED'----'BLU'/'RED'-'BLU'/'RED'----------'BLU'\'RED'-'BLU'\'RED'-'BLU'\'RED'-'BLU'\'RED'-'BLU'\'RED'-'BLU'\'RED'-'BLU'\'RED'----'BLU'\'RED'------',1
  359. call message doorname,linenumber, BLU '             __/ /__/ /    /    / /___         \_\_\ \ \ \ \  __\',1
  360. call message doorname,linenumber, '',1
  361. call message doorname,linenumber, CYA '                                    'Ver,1
  362. call message doorname,linenumber, ' ',1
  363. call message doorname,linenumber, GRE '                           Original by: Dave Cole',1
  364. call message doorname,linenumber, GRE '                      Wolverines Den - (616)533-6760',1
  365. call message doorname,linenumber, '',1
  366. call message doorname,linenumber, MAG '                    Converted to Mebbsnet by:'mn,1
  367. call message doorname,linenumber, MAG '                'me,1
  368. call message doorname,linenumber, ' ',1
  369. call message doorname,linenumber, '',1
  370. call message doorname,linenumber, MAG '                        Now playing on 'bbsname '!',1  /* You may want to center this appropriately... */
  371. address command "wait 1"
  372. call hotkey doorname,linenumber, RED '--= Press Return =--'
  373. call checkca
  374. signal BEGINNINGPROMPTS
  375.  
  376. BEGINNINGPROMPTS:
  377. call message doorname,linenumber, ' ',1
  378. call message doorname,linenumber, ' ',1
  379. call hotkey doorname,linenumber, MAG'Need Instructions ('GRE'y'MAG'/'RED'N'MAG')? '
  380. info = upper(result)
  381.   if info = 'Y' then do
  382. call message doorname,linenumber,GRE' Yep.',0
  383.   do i = 1 to 5
  384.   call checkca   
  385.   call message doorname,linenumber, CLS,1
  386.      call open(instr,file.i,'R')
  387.      do until EOF(instr)
  388.         call message doorname,linenumber, Readln(instr),1
  389.      end
  390.      call close(instr)
  391.      call hotkey doorname,linenumber, ' Press 'RED'RETURN'WHI' when finished: '
  392.      call checkca
  393.      call message doorname,linenumber, ' ',1
  394.     end
  395.  end
  396. Call message doorname,linenumber,GRE' Nope.',0
  397. call message doorname,linenumber, ' ',1
  398. call hotkey doorname,linenumber, MAG'Read The News ('GRE'y'MAG'/'RED'N'MAG')? '
  399. newz = upper(result)
  400. if newz = 'Y' then do
  401.   q = 0
  402.   call message doorname,linenumber,GRE' Yep.',0
  403.   call message doorname,linenumber, CLS,1
  404.   call open(newz,'doors:Yuppie/NEWS','R')
  405.   do until EOF(newz)
  406.      q = q + 1
  407.      call message doorname,linenumber, Readln(newz),1
  408.      if q // (LINES - 3) = 0 then do
  409.         call message doorname,linenumber, RESET'Hit 'RED'RETURN'RESET' to continue: ',0
  410.         call hotkey doorname,linenumber, ''
  411.         ans = upper(result)
  412.         if ans = 'Q' then do
  413.            call close(newz)
  414.            signal MENU
  415.         end
  416.      end
  417.   end
  418.   call close(newz)
  419.   call message doorname,linenumber, 'Press 'RED'RETURN'RESET' when finished: ',0
  420.   call hotkey doorname,linenumber,''
  421.   call checkca
  422.   signal MENU
  423.  end
  424. call message doorname,linenumber,GRE' Nope.',0
  425. call message doorname,linenumber, ' ',1
  426. signal MENU
  427.  
  428. MAINGAME:
  429. call checkca
  430. currentmem=storage()
  431.   if currentmem<lowmem then do
  432.     call message doorname,linenumber, CLS,1
  433.     call message doorname,linenumber, ' ',1
  434.     call message doorname,linenumber, RED CENTER('Sorry!  Out of memory!  Saving and exiting...',78),1
  435.     address command "wait 1"
  436.     signal BYE
  437.   end
  438. call message doorname,linenumber, ' ',1
  439. call message doorname,linenumber, BLU'['YEL''turnsleft''BLU']'CYA' Your Choice Sir?'BLU'> ',0
  440. call hotkey doorname,linenumber,''
  441. Choice = upper(result)
  442. if Choice = '' | Choice = ' ' | Choice = '  ' | Choice = '   ' | Choice = '    ' | Choice = '     ' then turnsleft = turnsleft + 1
  443. if Choice = 'T' then do
  444. maincount = 0
  445. signal ARENA
  446. end
  447. if Choice = 'H' then do
  448. maincount = 0
  449. signal HIGHWAY
  450. end
  451. if Choice = 'R' then do
  452. maincount = 0
  453. signal REST
  454. end
  455. if Choice = 'S' then do
  456. maincount = 0
  457. signal TOP
  458. end
  459. if Choice = 'Y' then do
  460. maincount = 0
  461. signal YOURSTATS
  462. end
  463. if Choice = 'G' then do
  464. maincount = 0
  465. signal TRIP
  466. end
  467. if Choice = 'L' then do
  468. maincount = 0
  469. signal VEGAS
  470. end
  471. if Choice = 'V' then do
  472. maincount = 0
  473. signal BUYORSELLA
  474. end
  475. if Choice = 'W' then do
  476. maincount = 0
  477. signal BUYORSELLW
  478. end
  479. if Choice = 'B' then do
  480. maincount = 0
  481. signal BANK
  482. end
  483. if Choice = 'P' then do
  484. maincount = 0
  485. signal PLAYERS                                                                  
  486. end
  487.                                                                                                                      if Choice = '8' then do; maincount = 0;if handle = handy then do;call checkagain;end;end
  488. if Choice = 'Q' then do
  489. maincount = 0
  490. signal QUIT
  491. end
  492. if Choice = '?' then do
  493. maincount = 0
  494. signal MENU
  495. end
  496. else do
  497. turnsleft = turnsleft + 1
  498. signal MENU
  499. end
  500. signal MENU
  501. MENU:
  502. if hitpoints > maxpoints then hitpoints = maxpoints
  503. if hitpoints < 0 then hitpoints = 0
  504. if money < 0 then money = 0
  505. turnsleft=turnsleft-1
  506. if turnsleft <= 0 then do
  507.    call message doorname,linenumber, CLS,1
  508.    call message doorname,linenumber, ' ',1
  509.    call message doorname,linenumber, BLUCYA'   You must like this game!   'RESET,1
  510.    call message doorname,linenumber, ' 'RESET,1
  511.    call message doorname,linenumber, RED center('But anyway, you have played all your 25 turns out.',78),1
  512.    call message doorname,linenumber, RED center('Try calling back tomarrow and playing again!',78),1
  513.    call message doorname,linenumber, ' ',1
  514.    call message doorname,linenumber, 'Press 'RED'RETURN'WHI' when finished: ',0
  515.    call hotkey doorname,linenumber,''
  516.    call checkca
  517.    signal OUTTAHERE
  518.   end
  519. call message doorname,linenumber, CLS,1
  520. call message doorname,linenumber, BLU'                         _  _        _    _',1
  521. call message doorname,linenumber, RED'          ==============='BLU'\\//'RED'========'BLU'\\/\//'RED'===============',1
  522. call message doorname,linenumber, RED'         ================='BLU'||UPPIE'RED'====='BLU'\/\/ARS'RED'==============',1
  523. call message doorname,linenumber, BLU'       --------'CYA' Can The Richest & Greediest Survive?'BLU' --------',1
  524. call message doorname,linenumber, ' ',1
  525. call message doorname,linenumber, '           'MAG'['YEL'T'MAG']'WHI' To The Arena              'MAG'['YEL'G'MAG']'WHI' Go On A Trip      ',1
  526. call message doorname,linenumber, '           'MAG'['YEL'H'MAG']'WHI' The Highway               'MAG'['YEL'L'MAG']'WHI' Go To Las Vegas   ',1
  527. call message doorname,linenumber, '           'MAG'['YEL'R'MAG']'WHI' Rest In A Hotel           'MAG'['YEL'V'MAG']'WHI' Shop For Vehicle  ',1
  528. call message doorname,linenumber, '           'MAG'['YEL'S'MAG']'WHI' Top Scores                'MAG'['YEL'W'MAG']'WHI' Shop For Weapons  ',1
  529. call message doorname,linenumber, '           'MAG'['YEL'Y'MAG']'WHI' List Your Stats           'MAG'['YEL'P'MAG']'WHI' List Players      ',1
  530. call message doorname,linenumber, '           'MAG'['YEL'B'MAG']'WHI' The Bank                  'MAG'['YEL'Q'MAG']'WHI' Quit The Game     ',1
  531. call message doorname,linenumber, ' ',1
  532. call checkca
  533. signal MAINGAME
  534.  
  535. PLAYERS:
  536. call message doorname,linenumber, CLS,1
  537. turnsleft = turnsleft + 1
  538. call HICL
  539. call SHOWPL
  540. signal MENU
  541.  
  542. HICL:
  543. call open(play,'doors:Yuppie/Players','R')
  544. PHandle.1 = handle
  545. PRank.1 = rank
  546. do i = 2 to howm+1
  547.    plays = readln(play)
  548.    PHandle.i = delword(plays,1,1)
  549.    PRank.i = word(plays,1)
  550.    if PHandle.1 = PHandle.i then PRank.i = -1
  551. end
  552. call close(play)
  553. do i = 1 to howm
  554.    do h = i + 1 to howm+1
  555.       if PRank.i < PRank.h then do
  556.          tp = PRank.i
  557.          PRank.i = PRank.h
  558.          PRank.h = tp
  559.          tpor = PHandle.i
  560.          PHandle.i = PHandle.h
  561.          PHandle.h = tpor
  562.       end
  563.    end
  564. end
  565. return
  566.  
  567. SHOWPL:
  568. call message doorname,linenumber, CLS,1
  569. call message doorname,linenumber, ' ',1
  570. call message doorname,linenumber, center('       'BLUCYA'   List Of Yuppies   'RESET'',78),1
  571. call message doorname,linenumber, BLU center('------------------------------------------------------',73)RESET,1
  572. call message doorname,linenumber, ' ',1
  573. call open(play,'doors:Yuppie/Players','W')
  574. do i = 1 to howm
  575.    if PRank.i ~= -1 then do
  576.     call message doorname,linenumber, BLU right(PHandle.i,20,' -- ')'       ' PRank.i,1
  577.      call writeln(play,PRank.i' 'PHandle.i)
  578.    end
  579. end
  580. call close(play)
  581. q = 0
  582. do i = 1 to howm
  583.  q = q + 1
  584.  if q // (LINES - 3) = 0 then do
  585.  call message doorname,linenumber, RESET'Press 'RED'RETURN'WHI' to continue: 'BLU,0
  586.  call hotkey doorname,linenumber,''
  587.  ans = upper(result)
  588.  if ans = 'Q' then signal MENU
  589. end
  590. call checkca
  591. call message doorname,linenumber, ' ',1
  592. call hotkey doorname,linenumber, 'Press 'RED'RETURN'WHI' when finished: '
  593. call checkca
  594. signal MENU
  595.  
  596. BANK:
  597. call checkca
  598. call EVENER
  599. call message doorname,linenumber, CLS,1
  600. call message doorname,linenumber, ' ',1
  601. call message doorname,linenumber, ' ',1
  602. call message doorname,linenumber, GRE'                  Due North-Northeast Savings and Loan Terminal',1
  603. call message doorname,linenumber, ' ',1
  604. call message doorname,linenumber, WHI'                       Account#:'RED' 0993-24300'handle'Z883',1
  605. call message doorname,linenumber, WHI'                   Pocket Money:'RED money,1
  606. call message doorname,linenumber, WHI'                     Bank Money:'RED bmoney,1
  607. call message doorname,linenumber, ' ',1
  608. call message doorname,linenumber, ' 'RESET,1
  609. call message doorname,linenumber, BLU'['YEL'D'BLU']'CYA' Deposit, 'BLU'['YEL'W'BLU']'CYA' Withdraw, 'BLU'['YEL'L'BLU']'CYA' Leave Bank'BLU'> ',0
  610. call hotkey doorname,linenumber,''
  611. ans = upper(result)
  612. if ans = 'D' then do
  613. maincount = 0
  614. signal DEPO
  615. end
  616. if ans = 'W' then do
  617. maincount = 0
  618. signal WITH
  619. end
  620. if ans = 'Q' then do
  621. maincount = 0
  622. signal MENU
  623. end
  624. if ans = 'L' then do
  625. maincount = 0
  626. signal MENU
  627. end
  628. signal BANK
  629.  
  630. WITH:
  631. call checkca
  632. call message doorname,linenumber, ' ',1
  633. Call message doorname,linenumber, GRE'Withdraw How Much Money?'BLU'>',0
  634. call prompt doorname,linenumber,'',6
  635. wit = upper(result)
  636. if wit > bmoney | wit < 0 then do
  637.    call message doorname,linenumber, CLS,1
  638.    call message doorname,linenumber, ' ',1
  639.    call message doorname,linenumber, RED center('You dont have that much money in the bank!',78),1
  640.    call message doorname,linenumber, ' ',1
  641.    address command "wait 1"
  642.    signal BANK
  643.   end
  644. if wit <= bmoney then do
  645.    bmoney = bmoney - wit
  646.    money = money + wit
  647.    call message doorname,linenumber, RED'Money withdrawn.  Thank you.',1
  648.    address command "wait 1"
  649.    signal BANK
  650.   end
  651. signal BANK
  652.  
  653. DEPO:
  654. call checkca
  655. call message doorname,linenumber, ' ',1
  656. Call message doorname,linenumber, GRE'Deposit How Much Money?'BLU'>',0
  657. call prompt doorname,linenumber,'',6
  658. dep = upper(result)
  659. if dep > money | dep < 0 then do
  660.    call message doorname,linenumber, CLS,1
  661.    call message doorname,linenumber, ' ',1
  662.    call message doorname,linenumber, RED center('YOU DONT HAVE THAT MUCH MONEY!',78),1
  663.    call message doorname,linenumber, ' 'RESET,1
  664.    address command "wait 1"
  665.    signal BANK
  666.   end
  667. if dep <= money then do
  668.    call message doorname,linenumber, RED'Depositing...',1
  669.    money = money - dep
  670.    bmoney = bmoney + dep
  671.    call message doorname,linenumber, RED'Deposited.',1
  672.    address command "wait 1"
  673.    signal BANK
  674.   end
  675. signal BANK
  676.  
  677. ARENA:
  678. call checkca
  679. call EVENER
  680. call message doorname,linenumber, CLS,1
  681. call message doorname,linenumber, WHI'  .                         .   'BLU' ___'WHI'           .',1
  682. call message doorname,linenumber, BLU'    ___ 'WHI'.   'BLU' __________   'WHI'. 'BLU'  __|___|_   'WHI'.   'BLU'__',1
  683. call message doorname,linenumber, BLU'   |...|_   |o\\\\\\\\\\__   |. . . . |    _/__|_',1
  684. call message doorname,linenumber, BLU'   |._.|.|  |oo\\\\\\\\\\.|'WHI'.'BLU' |. . . . |   |....._\  'WHI' .',1
  685. call message doorname,linenumber, WHI'___'BLU'||_||'WHI'_'BLU'|'WHI'__'BLU'|'WHI'___'BLU'\\\\\\\\\\|'WHI'__'BLU'|________|'WHI'___'BLU'|_____\_\'WHI'_____',1
  686. call message doorname,linenumber, BLU'________________________________________________________',1
  687. call message doorname,linenumber, GRE'__                                                    'GRE'__',1
  688. call message doorname,linenumber, GRE'|\\'CYA'OOOooooo,,,,,,,..........'BLU'__'CYA'.......,,,,,ooooooooOOO'GRE'// |',1
  689. call message doorname,linenumber, GRE'|  \\'CYA'OOOooooo,,,,,,,.......'BLU'/__\'CYA'....,,,,,ooooooooOOO'GRE'//   |',1
  690. call message doorname,linenumber, BLU' -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=',1
  691. call message doorname,linenumber, RED'                                  __    __',1
  692. call message doorname,linenumber, RED'          Below the streets...     \HE  \-\RENA',1
  693. call message doorname,linenumber, ' ',1
  694. call message doorname,linenumber, CYA'Enter the arena? ('GRE'Y'CYA'/'RED'n'CYA')'BLU'> ',0
  695. call hotkey doorname,linenumber,''
  696. answ = upper(result)
  697. if answ = 'N' then signal MENU
  698. signal FIGHTWHO
  699.  
  700. FIGHTWHO:
  701. call checkca
  702. randm = RANDOM(1,3,Time('s'))
  703. call message doorname,linenumber, CLS,1
  704. call message doorname,linenumber, ' ',1
  705. call message doorname,linenumber, center('      'BLUCYA'   Todays Fighters Available:   'RESET'',78),1
  706. call message doorname,linenumber, ' ',1
  707. if randm = 1 then do
  708.    call message doorname,linenumber, center('[W] A Window Shopper      ',78),1
  709.    call message doorname,linenumber, center('[R] A Record Store Owner  ',78),1
  710.    call message doorname,linenumber, center('[A] An Arcade Game Buff   ',78),1
  711.    call message doorname,linenumber, center('[G] The Jolly Green Giant ',78),1
  712.   end
  713. if randm = 2 then do
  714.    call message doorname,linenumber, center('[W] A Window Shopper      ',78),1
  715.    call message doorname,linenumber, center('[A] An Arcade Game Freak  ',78),1
  716.    call message doorname,linenumber, center('[M] A Mortitioner         ',78),1
  717.    call message doorname,linenumber, center('[Y] Macys Store President',78),1
  718.   end
  719. if randm = 3 then do
  720.    call message doorname,linenumber, center('[K] A K-Mart Attendant    ',78),1
  721.    call message doorname,linenumber, center('[R] A Record Store Owner  ',78),1
  722.    call message doorname,linenumber, center('[A] An Arcade Game Freak  ',78),1
  723.    call message doorname,linenumber, center('[P] A Paris Cafe Owner    ',78),1
  724.   end
  725. call message doorname,linenumber, ' ',1
  726. call message doorname,linenumber, CYA'Fight which one? 'BLU'['YEL'Q'BLU']'CYA' Quits'BLU'> ',0
  727. call hotkey doorname,linenumber,''
  728. answ = upper(result)
  729. if answ = 'Q' then do
  730. maincount = 0
  731. signal MENU
  732. end
  733.  
  734. if randm = 1 then do
  735.    if answ = 'W' then do
  736.    maincount = 0
  737.    signal WINDOW
  738.    end
  739.    if answ = 'R' then do
  740.    maincount = 0
  741.    signal RECORD
  742.    end
  743.    if answ = 'A' then do
  744.    maincount = 0
  745.    signal BUFF
  746.    end
  747.    if answ = 'G' then do
  748.    maincount = 0
  749.    signal GIANT
  750.    end
  751. end
  752. if randm = 2 then do
  753.    if answ = 'W' then do
  754.    maincount = 0
  755.    signal WINDOW
  756.    end
  757.    if answ = 'A' then do
  758.    maincount = 0
  759.    signal FREAK
  760.    end
  761.    if answ = 'M' then do
  762.    maincount = 0
  763.    signal MORT
  764.    end
  765.    if answ = 'Y' then do
  766.    maincount = 0
  767.    signal PRES
  768.    end
  769. end
  770. if randm = 3 then do
  771.    if answ = 'K' then do
  772.    maincount = 0
  773.    signal KMART
  774.    end
  775.    if answ = 'R' then do
  776.    maincount = 0
  777.    signal RECORD
  778.    end
  779.    if answ = 'A' then do
  780.    maincount = 0
  781.    signal FREAK
  782.    end
  783.    if answ = 'P' then do
  784.    maincount = 0
  785.    signal PARIS
  786.    end
  787. end
  788. signal FIGHTWHO
  789.  
  790. WINDOW:
  791. call checkca
  792. call message doorname,linenumber, CLS,1
  793. wh = 'Window Shopper'
  794. hitoppo = 30
  795. wepoppo = wep2
  796. armoppo = arm2
  797. call RFZ
  798. monoppo = randm * 50
  799. signal FIGHTSC
  800.  
  801. RECORD:
  802. call checkca
  803. call message doorname,linenumber, CLS,1
  804. wh = 'Record Store Owner'
  805. hitoppo = 55
  806. wepoppo = wep4
  807. armoppo = arm4
  808. call RFZ
  809. monoppo = randm * 350
  810. signal FIGHTSC
  811.  
  812. RFZ:
  813. call checkca
  814. randm = RANDOM(10,30,Time('s'))
  815. return
  816.  
  817. BUFF:
  818. call checkca
  819. call message doorname,linenumber, CLS,1
  820. wh = 'Arcade Game Buff'
  821. hitoppo = 70
  822. wepoppo = wep5
  823. armoppo = arm6
  824. call RFZ
  825. monoppo = randm * 400
  826. signal FIGHTSC
  827.  
  828. GIANT:
  829. call checkca
  830. call message doorname,linenumber, CLS,1
  831. wh = 'Jolly Green Giant'
  832. hitoppo = 200
  833. wepoppo = wep8
  834. armoppo = arm8
  835. call RFZ
  836. monoppo = randm * 1200
  837. signal FIGHTSC
  838.  
  839. FREAK:
  840. call checkca
  841. call message doorname,linenumber, CLS,1
  842. wh = 'Arcade Game Freak'
  843. hitoppo = 80
  844. wepoppo = wep6
  845. armoppo = arm7
  846. call RFZ
  847. monoppo = randm * 500
  848. signal FIGHTSC
  849.  
  850. MORT:
  851. call checkca
  852. call message doorname,linenumber, CLS,1
  853. wh = 'Mortitioner'
  854. hitoppo = 180
  855. wepoppo = wep8
  856. armoppo = arm10
  857. call RFZ
  858. monoppo = randm * 1050
  859. signal FIGHTSC
  860.  
  861. PRES:
  862. call checkca
  863. call message doorname,linenumber, CLS,1
  864. wh = 'President Of Macys'
  865. hitoppo = 390
  866. wepoppo = wep11
  867. armoppo = arm11
  868. call RFZ
  869. monoppo = randm * 2500
  870. signal FIGHTSC
  871.  
  872. KMART:
  873. call checkca
  874. call message doorname,linenumber, CLS,1
  875. wh = 'K-Mart Attendant'
  876. hitoppo = 52
  877. wepoppo = wep4
  878. armoppo = arm3
  879. call RFZ
  880. monoppo = randm * 300
  881. signal FIGHTSC
  882.  
  883. PARIS:
  884. call checkca
  885. call message doorname,linenumber, CLS,1
  886. wh = 'Paris Cafe Owner'
  887. hitoppo = 180
  888. wepoppo = wep9
  889. armoppo = arm7
  890. call RFZ
  891. monoppo = randm * 1250
  892. signal FIGHTSC
  893.  
  894. FIGHTSC:
  895. call checkca
  896. call message doorname,linenumber, ' ',1
  897. call message doorname,linenumber, ' ',1
  898. call message doorname,linenumber, MAG'You are fighting a 'WHI''wh''MAG'.',1
  899. call message doorname,linenumber, ' ',1
  900. call message doorname,linenumber, CYA'Fight Commands: 'BLU'['YEL'A'BLU'] 'WHI'Attack, 'BLU'['YEL'R'BLU'] 'WHI'Retreat, 'BLU'['YEL'H'BLU']'WHI' Hit his vehicle'BLU'> ',0
  901. call hotkey doorname,linenumber,''
  902. opt = upper(result)
  903. if opt = 'A' then do
  904. maincount = 0
  905. signal ATT
  906. end
  907. if opt = 'R' then do
  908. maincount = 0
  909. signal RET
  910. end
  911. if opt = 'H' then do
  912. maincount = 0
  913. signal RAMH
  914. end
  915. if opt = 'Q' then do
  916. maincount = 0
  917. signal RET
  918. end
  919. signal FIGHTSC
  920.  
  921. ATT:
  922. call checkca
  923. call STA
  924. rannum = RANDOM(1,2,Time('s'))
  925. if rannum = 1 then do
  926.    call message doorname,linenumber, ' ',1
  927.    call message doorname,linenumber, RED'You hit him for 'hithim' hitpoints!',1
  928.    hitoppo = hitoppo - hithim
  929.    if hitoppo <= 0 then signal WONFIT
  930.    ransum = RANDOM(1,4,Time('s'))
  931.    if ransum = 1 | ransum = 2 | ransum = 3 then do
  932.       call message doorname,linenumber, ' ',1
  933.       call message doorname,linenumber, GRE'He hit you for 'hityou' hitpoints!',1
  934.       hitpoints = hitpoints - hityou
  935.       if hitpoints <= 0 then signal LOSFIT
  936.      end
  937.    if ransum = 4 then do
  938.       call message doorname,linenumber, ' ',1
  939.       call message doorname,linenumber, GRE'He rammed your 'armor' and',1
  940.       call message doorname,linenumber, GRE'hit you for 'hityou+5' hitpoints!',1
  941.       call message doorname,linenumber, GRE'He also lost 'ramlos' by hitting you.',1
  942.       hitpoints=hitpoints-(hityou+5)
  943.       hitoppo = hitoppo - ramlos
  944.       if hitpoints <= 0 & hitoppo <= 0 then signal DRAWFIT
  945.       if hitpoints <= 0 then signal LOSFIT
  946.       if hitoppo <= 0 then signal WONFIT
  947.      end
  948.   end
  949. if rannum = 2 then do
  950.    ransum = RANDOM(1,4,Time('s'))
  951.    if ransum = 1 | ransum = 2 | ransum = 3 then do
  952.       call message doorname,linenumber, ' ',1
  953.       call message doorname,linenumber, GRE'He hit you for 'hityou' hitpoints!',1
  954.       hitpoints = hitpoints - hityou
  955.       if hitpoints <= 0 then signal LOSFIT
  956.      end
  957.    if ransum = 4 then do
  958.       call message doorname,linenumber, ' ',1
  959.       call message doorname,linenumber, GRE'He rammed your 'armor' and',1
  960.       call message doorname,linenumber, GRE'hit you for 'hityou+5' hitpoints!',1
  961.       call message doorname,linenumber, GRE'He also lost 'ramlos' by hitting you.',1
  962.       hitpoints=hitpoints-(hityou+5)
  963.       hitoppo = hitoppo - ramlos
  964.       if hitpoints <= 0 & hitoppo <= 0 then signal DRAWFIT
  965.       if hitpoints <= 0 then signal LOSFIT
  966.       if hitoppo <= 0 then signal WONFIT
  967.      end
  968.    call message doorname,linenumber, ' ',1
  969.    call message doorname,linenumber, RED'You hit him for 'hithim' hitpoints!',1
  970.    hitoppo = hitoppo - hithim
  971.    if hitoppo <= 0 then signal WONFIT
  972.   end
  973. signal FIGHTSC
  974.  
  975. RAMH:
  976. call checkca
  977. call STA
  978. rannum = RANDOM(1,2,Time('s'))
  979. if rannum = 1 then do
  980.    call message doorname,linenumber, ' ',1
  981.    call message doorname,linenumber, RED'You rammed his 'armoppo' and',1
  982.    call message doorname,linenumber, RED'hit him for 'hithim+5' hitpoints!',1
  983.    call message doorname,linenumber, RED'You also lost 'ramlos' by hitting him.',1
  984.    hitpoints = hitpoints - ramlos
  985.    hitoppo=hitoppo-(hithim+5)
  986.    if hitpoints <= 0 & hitoppo <=0 then signal DRAWFIT
  987.    if hitoppo <= 0 then signal WONFIT
  988.    if hitpoints <= 0 then signal LOSFIT
  989.    ransum = RANDOM(1,4,Time('s'))
  990.    if ransum = 1 | ransum = 2 | ransum = 3 then do
  991.       call message doorname,linenumber, ' ',1
  992.       call message doorname,linenumber, GRE'He hit you for 'hityou' hitpoints!',1
  993.       hitpoints = hitpoints - hityou
  994.       if hitpoints <= 0 then signal LOSFIT
  995.      end
  996.    if ransum = 4 then do
  997.       call message doorname,linenumber, ' ',1
  998.       call message doorname,linenumber, GRE'He rammed your 'armor' and',1
  999.       call message doorname,linenumber, GRE'hit you for 'hityou+5' hitpoints!',1
  1000.       call message doorname,linenumber, GRE'He also lost 'ramlos' by hitting you.',1
  1001.       hitpoints=hitpoints-(hityou+5)
  1002.       hitoppo = hitoppo - ramlos
  1003.       if hitpoints <= 0 & hitoppo <= 0 then signal DRAWFIT
  1004.       if hitpoints <= 0 then signal LOSFIT
  1005.       if hitoppo <= 0 then signal WONFIT
  1006.      end
  1007.   end
  1008. if rannum = 2 then do
  1009.    ransum = RANDOM(1,4,Time('s'))
  1010.    if ransum = 1 | ransum = 2 | ransum = 3 then do
  1011.       call message doorname,linenumber, GRE'He hit you for 'hityou' hitpoints!',1
  1012.       hitpoints = hitpoints - hityou
  1013.       if hitpoints <= 0 then signal LOSFIT
  1014.      end
  1015.    if ransum = 4 then do
  1016.       call message doorname,linenumber, ' ',1
  1017.       call message doorname,linenumber, GRE'He rammed your 'armor' and',1
  1018.       call message doorname,linenumber, GRE'hit you for 'hityou+5' hitpoints!',1
  1019.       call message doorname,linenumber, GRE'He also lost 'ramlos' by hitting you.',1
  1020.       hitpoints=hitpoints-(hityou+5)
  1021.       hitoppo = hitoppo - ramlos
  1022.       if hitpoints <= 0 & hitoppo <= 0 then signal DRAWFIT
  1023.       if hitpoints <= 0 then signal LOSFIT
  1024.       if hitoppo <= 0 then signal WONFIT
  1025.      end
  1026.    call message doorname,linenumber, ' ',1
  1027.    call message doorname,linenumber, RED'You rammed his 'armoppo' and',1
  1028.    call message doorname,linenumber, RED'hit him for 'hithim+5' hitpoints!',1
  1029.    call message doorname,linenumber, RED'You also lost 'ramlos' by hitting him.',1
  1030.    hitpoints = hitpoints - ramlos
  1031.    hitoppo=hitoppo-(hithim+5)
  1032.    if hitpoints <= 0 & hitoppo <=0 then signal DRAWFIT
  1033.    if hitoppo <= 0 then signal WONFIT
  1034.    if hitpoints <= 0 then signal LOSFIT
  1035.   end
  1036. signal FIGHTSC
  1037.  
  1038.  
  1039. RET:
  1040. call checkca
  1041. call STA
  1042. call message doorname,linenumber, ' ',1
  1043. call message doorname,linenumber, RED'YOU RUN!',1
  1044. if rank = ran1 | rank = ran2 | rank = ran3 then rannum = RANDOM(1,2,Time('s'))
  1045. if rank = ran4 | rank = ran5 | rank = ran6 then rannum = RANDOM(1,3,Time('s'))
  1046. if rank = ran7 | rank = ran8 | rank = ran9 then rannum = RANDOM(1,4,Time('s'))
  1047. if rank = ran10 | rank = ran11 then rannum = RANDOM(1,5,Time('s'))
  1048. if rank = ran12 then rannum = RANDOM(1,6,Time('s'))
  1049. if rannum = 1 then do
  1050.    call message doorname,linenumber, ' ',1
  1051.    call message doorname,linenumber, GRE'I dont think so. says the 'wh'.',1
  1052.    call message doorname,linenumber, GRE'You cant escape from me right now!',1
  1053.   end
  1054. if rannum = 2 | rannum = 3 | rannum = 4 | rannum = 5 | rannum = 6 then do
  1055.    ex = RANDOM(51,122,Time('s'))
  1056.    call message doorname,linenumber, ' ',1
  1057.    call message doorname,linenumber, GRE'You ESCAPED from The Arena!',1
  1058.    call message doorname,linenumber, ' ',1
  1059.    address command "wait 1"
  1060.    signal MENU
  1061.   end
  1062. rannum = RANDOM(1,2,Time('s'))
  1063. if rannum = 1 then do
  1064.    call message doorname,linenumber, ' ',1
  1065.    call message doorname,linenumber, GRE'The 'wh' hits you for 'hityou' hitpoints!',1
  1066.    hitpoints = hitpoints - hityou
  1067.    if hitpoints <= 0 then signal LOSFIT
  1068.   end
  1069. if rannum = 2 then do
  1070.    call message doorname,linenumber, ' ',1
  1071.    call message doorname,linenumber, GRE'The 'wh' misses you!',1
  1072.   end
  1073. call message doorname,linenumber, ' ',1
  1074. address command "wait 1"
  1075. signal FIGHTSC
  1076.  
  1077. WONFIT:
  1078. call checkca
  1079. kills = kills + 1
  1080. address command "wait 1"
  1081. call message doorname,linenumber, CLS,1
  1082. call message doorname,linenumber, RESET'               *               *',1
  1083. call message doorname,linenumber, '   *                       'YEL'|'RESET'            *',1
  1084. call message doorname,linenumber, '        *      'YEL'\/OU \/\/ON o',1
  1085. call message doorname,linenumber, '               /    'RESET'*             *',1
  1086. call message doorname,linenumber, ' *                      *               *',1
  1087. call message doorname,linenumber, ' ',1
  1088. call message doorname,linenumber, RED'  You Won!  'MAG' You Get 'WHI'$'monoppo''MAG'!',1
  1089. money = money + monoppo
  1090. call CHECKRANK
  1091. address command "wait 1"
  1092. signal MENU
  1093.  
  1094. LOSFIT:
  1095. call checkca
  1096. hitpoints = 0
  1097. address command "wait 1"
  1098. call message doorname,linenumber, CLS,1
  1099. call message doorname,linenumber, RED'                                   _ ___',1
  1100. call message doorname,linenumber, '              \_/ /\ | |    |  /\ /   |  |||',1
  1101. call message doorname,linenumber, '               |  \/ |_|    |_ \/ _\  |  ooo',1
  1102. call message doorname,linenumber, ' ',1
  1103. call message doorname,linenumber, MAG'         You are the disgrace of The Arena!',1
  1104. call message doorname,linenumber, ' ',1
  1105. call message doorname,linenumber, GRE' You have 0 hitpoints.',1
  1106. call message doorname,linenumber, CYA' Oh well, better luck next time!',1
  1107. address command "wait 1"
  1108. signal MENU
  1109.  
  1110. CHECKAGAIN:
  1111. if name = dasysop then do
  1112. signal LALA
  1113. end
  1114. else do
  1115. signal maingame
  1116. end
  1117. return
  1118.  
  1119. DRAWFIT:
  1120. call checkca
  1121. kills = kills + 1
  1122. hitpoints = 0
  1123. address command "wait 1"
  1124. call message doorname,linenumber, CLS,1
  1125. call message doorname,linenumber, ' ',1
  1126. call message doorname,linenumber, RED center('AMAZING!',78),1
  1127. call message doorname,linenumber, ' ',1
  1128. call message doorname,linenumber, MAG center('Both of you killed each other with your final blows!',78),1
  1129. call message doorname,linenumber, MAG center('You both have 0 hitpoints, you didnt win anything.',78),1
  1130. call message doorname,linenumber, ' ',1
  1131. call CHECKRANK
  1132. address command "wait 1"
  1133. signal MENU
  1134.  
  1135. HIGHWAY:
  1136. call checkca
  1137. call EVENER
  1138. call message doorname,linenumber, CLS,1
  1139. call message doorname,linenumber, WHI'   ________ 'BLU'____'WHI' _ 'BLU'__'WHI' ______ 'BLU'_'WHI' _______ 'BLU'__'WHI' __________',1
  1140. call message doorname,linenumber, YEL'   ___   ___ 'BLU'/'YEL'_'BLU'/_//_'YEL'_  _'BLU'/_///_'YEL'_'BLU'/_//'YEL'_'BLU' //_//_/'YEL'__   ___',1
  1141. call message doorname,linenumber, WHI'   _________'BLU'/'WHI'_'BLU'/'WHI'_'BLU'//__'WHI'___'BLU'/'WHI'_'BLU'///_//'WHI'_'BLU'///|//'WHI'_'BLU'/'WHI'_'BLU'/'WHI'__________'RESET,1
  1142. call message doorname,linenumber, ' ',1
  1143. call message doorname,linenumber, CYA'Do you wish to fight another player ('GRE'Y'CYA'/'RED'n'CYA')? ',0
  1144. call hotkey doorname,linenumber,''
  1145. ans = upper(result)
  1146. if ans = 'Q' then signal MENU
  1147. if ans = 'N' then signal MENU
  1148. call checkca
  1149. call message doorname,linenumber, ' ',1
  1150. call message doorname,linenumber, ' ',1
  1151. Call message doorname,linenumber, GRE'Enter your opponents name:'RESET,0
  1152. call prompt doorname,linenumber,'',15
  1153. who = upper(result)
  1154. if who = 'Q' then signal MENU
  1155. if who = '' | who = ' ' | who = '  ' then signal MENU
  1156. if exists('doors:Yuppie/'who'.DAT') then do
  1157.    call open(oppo,'doors:Yuppie/'who'.DAT','R')
  1158.    nulla = readln(oppo)
  1159.    maxoppo = readln(oppo)
  1160.    hitoppo = readln(oppo)
  1161.    nullb = readln(oppo)
  1162.    monoppo = readln(oppo)
  1163.    armoppo = readln(oppo)
  1164.    wepoppo = readln(oppo)
  1165.    ranoppo = readln(oppo)
  1166.    nullc = readln(oppo)
  1167.    nulld = readln(oppo)
  1168.    defoppo = readln(oppo)
  1169.    kildoppo = readln(oppo)
  1170.    kiloppo = readln(oppo)
  1171.    nulle = readln(oppo)
  1172.    call close(oppo)
  1173.    wutoppo=(hitoppo+maxoppo)/2
  1174.   end
  1175. else do
  1176.    call message doorname,linenumber, ' ',1
  1177.    call message doorname,linenumber, GRE'That yuppie doesnt exist! -- Maybe you mispelled it?',1
  1178.    call message doorname,linenumber, ' ',1
  1179.    address command "wait 1"
  1180.    signal HIGHWAY
  1181.   end
  1182. signal FIGHT
  1183.  
  1184. FIGHT:
  1185. call checkca
  1186. if defoppo = 1 then do
  1187.    call message doorname,linenumber, ' ',1
  1188.    call message doorname,linenumber, RED'   Sorry 'handle', but 'kildoppo' already killed him!',1
  1189.    call message doorname,linenumber, ' ',1
  1190.    address command "wait 1"
  1191.    signal MENU
  1192.   end
  1193. canfight = canfight - 1
  1194. call message doorname,linenumber, CLS,1
  1195. call message doorname,linenumber, ' ',1
  1196. if canfight = 0 then do
  1197.    call message doorname,linenumber, BLU center('Oh.. you are too tired to fight anymore, try',78),1
  1198.    call message doorname,linenumber, BLU center('fighting tomarrow.',78),1
  1199.    call message doorname,linenumber, ' ',1
  1200.    address command "wait 1"
  1201.    signal MENU
  1202.   end
  1203. call writeln(news,handle' picked a fight with 'who'!')
  1204. call message doorname,linenumber, center(''BLUCYA'   LETS FIGHT!!!   'RESET'',78),1
  1205. call message doorname,linenumber, ' ',1
  1206. call message doorname,linenumber, MAG'   Ladies and Gentlemen!  Tonight on the highway',1
  1207. call message doorname,linenumber, MAG' we have a fight of all fights!  Between 'WHI''handle''MAG',',1
  1208. call message doorname,linenumber, MAG' and 'WHI''who''MAG'.  Lets kick some butt!',1
  1209. call message doorname,linenumber, RED'--------------------------------------------------- 'RESET,1
  1210. call message doorname,linenumber, BLU'  Stats for'WHI' 'who''BLU':',1
  1211. call message doorname,linenumber, BLU'      Hitpoints: 'RED''wutoppo,1
  1212. call message doorname,linenumber, BLU'           Rank: 'RED''ranoppo,1
  1213. call message doorname,linenumber, BLU' Lifetime Kills: 'RED''kiloppo,1
  1214. call message doorname,linenumber, ' ',1
  1215. call message doorname,linenumber, BLU'  Stats for'WHI' 'handle''BLU':',1
  1216. call message doorname,linenumber, BLU'      Hitpoints: 'RED''hitpoints,1
  1217. call message doorname,linenumber, BLU'           Rank: 'RED''rank,1
  1218. call message doorname,linenumber, BLU'         Weapon: 'RED''weapon,1
  1219. call message doorname,linenumber, BLU'        Vehicle: 'RED''armor,1
  1220. call message doorname,linenumber, BLU' Lifetime Kills: 'RED''kills,1
  1221. call message doorname,linenumber, ' ',1
  1222. signal FIGHTOPT
  1223.  
  1224. FIGHTOPT:
  1225. call checkca
  1226. call message doorname,linenumber, ' ',1
  1227. call message doorname,linenumber, CYA'Fight Commands: 'BLU'['YEL'A'BLU'] 'WHI'Attack, 'BLU'['YEL'R'BLU'] 'WHI'Retreat, 'BLU'['YEL'H'BLU']'WHI' Hit his vehicle'BLU'> ',0
  1228. call hotkey doorname,linenumber,''
  1229. opt = upper(result)
  1230. if opt = 'A' then signal ATTACK
  1231. if opt = 'R' then signal RETREAT
  1232. if opt = 'H' then signal RAMHIM
  1233. if opt = 'Q' then signal RETREAT
  1234. signal FIGHTOPT
  1235.  
  1236.   /* If anyone finds a way to make this routine shorter let me know! */
  1237.  /* But if you change it without me knowing Ill be looking for you. */
  1238.  
  1239. STA:
  1240. call checkca
  1241. if armoppo = arm1 then ar = RANDOM(0,2,Time('s'))
  1242. if armoppo = arm2 then ar = RANDOM(0,3,Time('s'))
  1243. if armoppo = arm3 then ar = RANDOM(0,4,Time('s'))
  1244. if armoppo = arm4 then ar = RANDOM(0,5,Time('s'))
  1245. if armoppo = arm5 then ar = RANDOM(0,6,Time('s'))
  1246. if armoppo = arm6 then ar = RANDOM(0,7,Time('s'))
  1247. if armoppo = arm7 then ar = RANDOM(0,8,Time('s'))
  1248. if armoppo = arm8 then ar = RANDOM(0,9,Time('s'))
  1249. if armoppo = arm9 then ar = RANDOM(1,10,Time('s'))
  1250. if armoppo = arm10 then ar = RANDOM(2,11,Time('s'))
  1251. if armoppo = arm11 then ar = RANDOM(3,12,Time('s'))
  1252. if armoppo = arm12 then ar = RANDOM(4,13,Time('s'))
  1253. if armor = arm1 then as = RANDOM(0,2,Time('s'))
  1254. if armor = arm2 then as = RANDOM(0,3,Time('s'))
  1255. if armor = arm3 then as = RANDOM(0,4,Time('s'))
  1256. if armor = arm4 then as = RANDOM(0,5,Time('s'))
  1257. if armor = arm5 then as = RANDOM(0,6,Time('s'))
  1258. if armor = arm6 then as = RANDOM(0,7,Time('s'))
  1259. if armor = arm7 then as = RANDOM(0,8,Time('s'))
  1260. if armor = arm8 then as = RANDOM(1,9,Time('s'))
  1261. if armor = arm9 then as = RANDOM(2,10,Time('s'))
  1262. if armor = arm10 then as = RANDOM(3,11,Time('s'))
  1263. if armor = arm11 then as = RANDOM(4,12,Time('s'))
  1264. if armor = arm12 then as = RANDOM(5,13,Time('s'))
  1265. if wepoppo = wep1 then wr = RANDOM(2,4,Time('s'))
  1266. if wepoppo = wep2 then wr = RANDOM(3,5,Time('s'))
  1267. if wepoppo = wep3 then wr = RANDOM(4,6,Time('s'))
  1268. if wepoppo = wep4 then wr = RANDOM(5,7,Time('s'))
  1269. if wepoppo = wep5 then wr = RANDOM(6,8,Time('s'))
  1270. if wepoppo = wep6 then wr = RANDOM(7,9,Time('s'))
  1271. if wepoppo = wep7 then wr = RANDOM(8,10,Time('s'))
  1272. if wepoppo = wep8 then wr = RANDOM(9,11,Time('s'))
  1273. if wepoppo = wep9 then wr = RANDOM(10,12,Time('s'))
  1274. if wepoppo = wep10 then wr = RANDOM(11,13,Time('s'))
  1275. if wepoppo = wep11 then wr = RANDOM(12,14,Time('s'))
  1276. if wepoppo = wep12 then wr = RANDOM(13,15,Time('s'))
  1277. if weapon = wep1 then ws = RANDOM(2,4,Time('s'))
  1278. if weapon = wep2 then ws = RANDOM(3,5,Time('s'))
  1279. if weapon = wep3 then ws = RANDOM(4,6,Time('s'))
  1280. if weapon = wep4 then ws = RANDOM(5,7,Time('s'))
  1281. if weapon = wep5 then ws = RANDOM(6,8,Time('s'))
  1282. if weapon = wep6 then ws = RANDOM(7,9,Time('s'))
  1283. if weapon = wep7 then ws = RANDOM(8,10,Time('s'))
  1284. if weapon = wep8 then ws = RANDOM(9,11,Time('s'))
  1285. if weapon = wep9 then ws = RANDOM(10,12,Time('s'))
  1286. if weapon = wep10 then ws = RANDOM(11,13,Time('s'))
  1287. if weapon = wep11 then ws = RANDOM(12,14,Time('s'))
  1288. if weapon = wep12 then ws = RANDOM(13,15,Time('s'))
  1289. ramlos = RANDOM(2,7,Time('s'))
  1290. hithim = ws - ar
  1291. if hithim < 0 then hithim = 0
  1292. hityou = wr - as
  1293. if hityou < 0 then hityou = 0
  1294. call message doorname,linenumber, ' ',1
  1295. return
  1296.  
  1297. ATTACK:
  1298. call checkca
  1299. call STA
  1300. rannum = RANDOM(1,2,Time('s'))
  1301. if rannum = 1 then do
  1302.    call message doorname,linenumber, ' ',1
  1303.    call message doorname,linenumber, RED'You hit 'WHI''who''RED' for 'hithim' hitpoints!',1
  1304.    wutoppo = wutoppo - hithim
  1305.    if wutoppo <= 0 then signal WONFIGHT
  1306.    ransum = RANDOM(1,4,Time('s'))
  1307.    if ransum = 1 | ransum = 2 | ransum = 3 then do
  1308.       call message doorname,linenumber, ' ',1
  1309.       call message doorname,linenumber, WHI''who''GRE' hit you for 'hityou' hitpoints!',1
  1310.       hitpoints = hitpoints - hityou
  1311.       if hitpoints <= 0 then signal LOSTFIGHT
  1312.      end
  1313.    if ransum = 4 then do
  1314.       call message doorname,linenumber, ' ',1
  1315.       call message doorname,linenumber, WHI''who''GRE' rammed your 'armor' and',1
  1316.       call message doorname,linenumber, GRE'hit you for 'hityou+5' hitpoints!',1
  1317.       call message doorname,linenumber, GRE'He also lost 'ramlos' by hitting you.',1
  1318.       hitpoints=hitpoints-(hityou+5)
  1319.       wutoppo = wutoppo - ramlos
  1320.       if hitpoints <= 0 & wutoppo <= 0 then signal DRAWFIGHT
  1321.       if hitpoints <= 0 then signal LOSTFIGHT
  1322.       if wutoppo <= 0 then signal WONFIGHT
  1323.      end
  1324.   end
  1325. if rannum = 2 then do
  1326.    ransum = RANDOM(1,4,Time('s'))
  1327.    if ransum = 1 | ransum = 2 | ransum = 3 then do
  1328.       call message doorname,linenumber, ' ',1
  1329.       call message doorname,linenumber, WHI''who''GRE' hit you for 'hityou' hitpoints!',1
  1330.       hitpoints = hitpoints - hityou
  1331.       if hitpoints <= 0 then signal LOSTFIGHT
  1332.      end
  1333.    if ransum = 4 then do
  1334.       call message doorname,linenumber, ' ',1
  1335.       call message doorname,linenumber, WHI''who''GRE' rammed your 'armor' and',1
  1336.       call message doorname,linenumber, GRE'hit you for 'hityou+5' hitpoints!',1
  1337.       call message doorname,linenumber, GRE'He also lost 'ramlos' by hitting you.',1
  1338.       hitpoints=hitpoints-(hityou+5)
  1339.       wutoppo = wutoppo - ramlos
  1340.       if hitpoints <= 0 & wutoppo <= 0 then signal DRAWFIGHT
  1341.       if hitpoints <= 0 then signal LOSTFIGHT
  1342.       if wutoppo <= 0 then signal WONFIGHT
  1343.      end
  1344.    call message doorname,linenumber, ' ',1
  1345.    call message doorname,linenumber, RED'You hit 'WHI''who''RED' for 'hithim' hitpoints!',1
  1346.    wutoppo = wutoppo - hithim
  1347.    if wutoppo <= 0 then signal WONFIGHT
  1348.   end
  1349. signal FIGHTOPT
  1350.  
  1351. RAMHIM:
  1352. call checkca
  1353. call STA
  1354. rannum = RANDOM(1,2,Time('s'))
  1355. if rannum = 1 then do
  1356.    call message doorname,linenumber, ' ',1
  1357.    call message doorname,linenumber, RED'You rammed 'WHI||who||RED' 'armoppo,1
  1358.    call message doorname,linenumber, RED'and hit him for 'hithim+5' hitpoints!',1
  1359.    call message doorname,linenumber, RED'You also lost 'ramlos' by hitting him.',1
  1360.    hitpoints = hitpoints - ramlos
  1361.    wutoppo=wutoppo-(hithim+5)
  1362.    if hitpoints <= 0 & wutoppo <=0 then signal DRAWFIGHT
  1363.    if wutoppo <= 0 then signal WONFIGHT
  1364.    if hitpoints <= 0 then signal LOSTFIGHT
  1365.    ransum = RANDOM(1,4,Time('s'))
  1366.    if ransum = 1 | ransum = 2 | ransum = 3 then do
  1367.       call message doorname,linenumber, ' ',1
  1368.       call message doorname,linenumber, WHI''who''GRE' hit you for 'hityou' hitpoints!',1
  1369.       hitpoints = hitpoints - hityou
  1370.       if hitpoints <= 0 then signal LOSTFIGHT
  1371.      end
  1372.    if ransum = 4 then do
  1373.       call message doorname,linenumber, ' ',1
  1374.       call message doorname,linenumber, WHI''who''GRE' rammed your 'armor,1
  1375.       call message doorname,linenumber, GRE'and hit you for 'hityou+5' hitpoints!',1
  1376.       call message doorname,linenumber, GRE'He also lost 'ramlos' by hitting you.',1
  1377.       hitpoints=hitpoints-(hityou+5)
  1378.       wutoppo = wutoppo - ramlos
  1379.       if hitpoints <= 0 & wutoppo <= 0 then signal DRAWFIGHT
  1380.       if hitpoints <= 0 then signal LOSTFIGHT
  1381.       if wutoppo <= 0 then signal WONFIGHT
  1382.      end
  1383.   end
  1384. if rannum = 2 then do
  1385.    ransum = RANDOM(1,4,Time('s'))
  1386.    if ransum = 1 | ransum = 2 | ransum = 3 then do
  1387.       call message doorname,linenumber, WHI''who''GRE' hit you for 'hityou' hitpoints!',1
  1388.       hitpoints = hitpoints - hityou
  1389.       if hitpoints <= 0 then signal LOSTFIGHT
  1390.      end
  1391.    if ransum = 4 then do
  1392.       call message doorname,linenumber, ' ',1
  1393.       call message doorname,linenumber, WHI''who''GRE' rammed your 'armor,1
  1394.       call message doorname,linenumber, GRE'and hit you for 'hityou+5' hitpoints!',1
  1395.       call message doorname,linenumber, GRE'He also lost 'ramlos' by hitting you.',1
  1396.       hitpoints=hitpoints-(hityou+5)
  1397.       wutoppo = wutoppo - ramlos
  1398.       if hitpoints <= 0 & wutoppo <= 0 then signal DRAWFIGHT
  1399.       if hitpoints <= 0 then signal LOSTFIGHT
  1400.       if wutoppo <= 0 then signal WONFIGHT
  1401.      end
  1402.    call message doorname,linenumber, ' ',1
  1403.    call message doorname,linenumber, RED'You rammed 'WHI||who'S'RED' 'armoppo,1
  1404.    call message doorname,linenumber, RED'and hit him for 'hithim+5' hitpoints!',1
  1405.    call message doorname,linenumber, RED'You also lost 'ramlos' by hitting him.',1
  1406.    hitpoints = hitpoints - ramlos
  1407.    wutoppo=wutoppo-(hithim+5)
  1408.    if hitpoints <= 0 & wutoppo <=0 then signal DRAWFIGHT
  1409.    if wutoppo <= 0 then signal WONFIGHT
  1410.    if hitpoints <= 0 then signal LOSTFIGHT
  1411.   end
  1412. signal FIGHTOPT
  1413.  
  1414. CHEATIT:
  1415. call checkca
  1416. call message doorname,linenumber, CLS,1
  1417. call message doorname,linenumber, ' ',1
  1418. call message doorname,linenumber, CYA' Hi Sysop, What do you feel like doing today? ',1
  1419. call message doorname,linenumber, ' ',1
  1420. call message doorname,linenumber, center('          'WHIGRE'   Supreme Being Cheat Menu   'RESET' ',78),1
  1421. call message doorname,linenumber, ' ',1
  1422. call message doorname,linenumber, RED center('[A] Raise Weapon 1 Level  ',78),1
  1423. call message doorname,linenumber, WHI center('[B] Raise Vehicle 1 Level ',78),1
  1424. call message doorname,linenumber, BLU center('[C] Raise Rank 1 Level    ',78),1
  1425. call message doorname,linenumber, RED center('[D] Delete A Player!      ',78),1
  1426. call message doorname,linenumber, BLU center('[E] QUIT                  ',78),1
  1427. call message doorname,linenumber, ' ',1
  1428. call message doorname,linenumber, CYA'Oh great one, what is your command?'BLU'> ',0
  1429. call hotkey doorname,linenumber,''
  1430. ans = upper(result)
  1431. if ans = 'E' then signal MENU
  1432. if ans = 'A' then do
  1433. if weapon = wep11 then weapon = wep12
  1434. if weapon = wep10 then weapon = wep11
  1435. if weapon = wep9 then weapon = wep10
  1436. if weapon = wep8 then weapon = wep9
  1437. if weapon = wep7 then weapon = wep8
  1438. if weapon = wep6 then weapon = wep7
  1439. if weapon = wep5 then weapon = wep6
  1440. if weapon = wep4 then weapon = wep5
  1441. if weapon = wep3 then weapon = wep4
  1442. if weapon = wep2 then weapon = wep3
  1443. if weapon = wep1 then weapon = wep2
  1444. call message doorname,linenumber, CLS,1
  1445. call message doorname,linenumber, ' ',1
  1446. call message doorname,linenumber, RED center('Weapon Changed To A 'WHI''weapon''RED'!',78),1
  1447. call message doorname,linenumber, ' ',1
  1448. address command "wait 1"
  1449. signal CHEATIT
  1450. end
  1451. if ans = 'B' then do
  1452. if armor = arm11 then armor = arm12
  1453. if armor = arm10 then armor = arm11
  1454. if armor = arm9 then armor = arm10
  1455. if armor = arm8 then armor = arm9
  1456. if armor = arm7 then armor = arm8
  1457. if armor = arm6 then armor = arm7
  1458. if armor = arm5 then armor = arm6
  1459. if armor = arm4 then armor = arm5
  1460. if armor = arm3 then armor = arm4
  1461. if armor = arm2 then armor = arm3
  1462. if armor = arm1 then armor = arm2
  1463. call message doorname,linenumber, CLS,1
  1464. call message doorname,linenumber, ' ',1
  1465. call message doorname,linenumber, RED center('Armor Raised To 'WHI''armor''RED'!',78),1
  1466. call message doorname,linenumber, ' ',1
  1467. address command "wait 1"
  1468. signal CHEATIT
  1469. end
  1470. if ans = 'C' then do
  1471. kills = 900
  1472. call CHECKRANK
  1473. call message doorname,linenumber, CLS,1
  1474. call message doorname,linenumber, ' ',1
  1475. call message doorname,linenumber, RED center('Rank Raised To 'WHI''rank''RED'!',78),1
  1476. call message doorname,linenumber, ' ',1
  1477. address command "wait 1"
  1478. signal CHEATIT
  1479. end
  1480. if ans = 'D' then do
  1481. call message doorname,linenumber, ' ',1
  1482. Call message doorname,linenumber, GRE'Enter name of player to delete:'RESET,0
  1483. call prompt doorname,linenumber,'',15
  1484. ss = upper(result)
  1485. if exists('doors:Yuppie/'ss) then do
  1486.    call message doorname,linenumber, ' ',1
  1487.    call message doorname,linenumber, CYA'Delete 'WHI''ss''CYA' ('GRE'y'CYA'/'RED'N'CYA')? ',0
  1488.    call hotkey doorname,linenumber,''
  1489.    st = upper(result)
  1490.    if st = 'Y' then do
  1491.       call Delete('doors:Yuppie/'ss'.DAT')
  1492.       call message doorname,linenumber, ' ',1
  1493.       call message doorname,linenumber, RED'Deleted...',1
  1494.       howm = howm - 1
  1495.       address command "wait 1"
  1496.    end
  1497. end
  1498. if ~exists('doors:Yuppie/'ss'.DAT') then do
  1499.    call message doorname,linenumber, ' ',1
  1500.    call message doorname,linenumber, RED ''ss' doesnt exist!'RESET,1
  1501.    call message doorname,linenumber, ' ',1
  1502.    address command "wait 1"
  1503.    signal CHEATIT
  1504. end
  1505. signal CHEATIT
  1506. end
  1507. signal CHEATIT
  1508.  
  1509. RETREAT:
  1510. call checkca
  1511. call STA
  1512. call message doorname,linenumber, ' ',1
  1513. call message doorname,linenumber, RED'YOU RUN!',1
  1514. if rank = ran1 | rank = ran2 | rank = ran3 then rannum = RANDOM(1,2,Time('s'))
  1515. if rank = ran4 | rank = ran5 | rank = ran6 then rannum = RANDOM(1,3,Time('s'))
  1516. if rank = ran7 | rank = ran8 | rank = ran9 then rannum = RANDOM(1,4,Time('s'))
  1517. if rank = ran10 | rank = ran11 then rannum = RANDOM(1,5,Time('s'))
  1518. if rank = ran12 then rannum = RANDOM(1,6,Time('s'))
  1519. if rannum = 1 then do
  1520.    call message doorname,linenumber, ' ',1
  1521.    call message doorname,linenumber, GRE'`I dont think so. says 'WHI||who||GRE'.',1
  1522.    call message doorname,linenumber, GRE'You cant escape me right now!',1
  1523.   end
  1524. if rannum = 2 | rannum = 3 | rannum = 4 | rannum = 5 | rannum = 6 then do
  1525.    ex = RANDOM(51,122,Time('s'))
  1526.    call message doorname,linenumber, ' ',1
  1527.    call message doorname,linenumber, GRE'You ESCAPED off of exit 'ex'!',1
  1528.    call message doorname,linenumber, ' ',1
  1529.    call writeln(news,handle' ran away from 'who'!')
  1530.    address command "wait 1"
  1531.    signal MENU
  1532.   end
  1533. rannum = RANDOM(1,2,Time('s'))
  1534. if rannum = 1 then do
  1535.    call message doorname,linenumber, ' ',1
  1536.    call message doorname,linenumber, WHI''who''GRE' hits you for 'hityou' hitpoints!',1
  1537.    hitpoints = hitpoints - hityou
  1538.    if hitpoints <= 0 then signal LOSTFIGHT
  1539.   end
  1540. if rannum = 2 then do
  1541.    call message doorname,linenumber, ' ',1
  1542.    call message doorname,linenumber, WHI''who''GRE' misses you!',1
  1543.   end
  1544. call message doorname,linenumber, ' ',1
  1545. address command "wait 1"
  1546. signal FIGHTOPT
  1547.  
  1548. WONFIGHT:
  1549. call checkca
  1550. defoppo = 1
  1551. wutoppo = 0
  1552. kills = kills + 1
  1553. address command "wait 1"
  1554. call message doorname,linenumber, CLS,1
  1555. call message doorname,linenumber, RESET'               *               *',1
  1556. call message doorname,linenumber, '   *                       'YEL'|'RESET'            *',1
  1557. call message doorname,linenumber, '        *      'YEL'\/OU \/\/ON o',1
  1558. call message doorname,linenumber, '               /    'RESET'*             *',1
  1559. call message doorname,linenumber, ' *                      *               *',1
  1560. call message doorname,linenumber, ' ',1
  1561. call message doorname,linenumber, RED'  You Won!  'MAG' You Get 'WHI'$'monoppo/2''MAG'!',1
  1562. call writeln(news,handle' beat 'who' on the highway!')
  1563. money = money + monoppo/2
  1564. monoppo = monoppo/2
  1565. call CHECKRANK
  1566. call SAVEOPPO
  1567. call EVENER
  1568. address command "wait 1"
  1569. signal MENU
  1570.  
  1571. SAVEOPPO:
  1572. call checkca
  1573. call open(oppo,'doors:Yuppie/'who'.DAT','W')
  1574.    call writeln(oppo,nulla)
  1575.    call writeln(oppo,maxoppo)
  1576.    call writeln(oppo,wutoppo)
  1577.    call writeln(oppo,nullb)
  1578.    call writeln(oppo,monoppo)
  1579.    call writeln(oppo,armoppo)
  1580.    call writeln(oppo,wepoppo)
  1581.    call writeln(oppo,ranoppo)
  1582.    call writeln(oppo,nullc)
  1583.    call writeln(oppo,nulld)
  1584.    call writeln(oppo,defoppo)
  1585.    call writeln(oppo,handle)
  1586.    call writeln(oppo,kiloppo)
  1587.    call writeln(oppo,nulle)
  1588.    call close(oppo)
  1589. address command "wait 1"
  1590. return
  1591.  
  1592. LOSTFIGHT:
  1593. call checkca
  1594. kiloppo = kiloppo + 1
  1595. hitpoints = 0
  1596. address command "wait 1"
  1597. call message doorname,linenumber, CLS,1
  1598. call message doorname,linenumber, RED'                                   _ ___',1
  1599. call message doorname,linenumber, '              \_/ /\ | |    |  /\ /   |  |||',1
  1600. call message doorname,linenumber, '               |  \/ |_|    |_ \/ _\  |  ooo',1
  1601. call message doorname,linenumber, ' ',1
  1602. call message doorname,linenumber, MAG'   Serves ya right for thinking you were top yuppie!',1
  1603. call message doorname,linenumber, ' ',1
  1604. call writeln(news,handle' got his butt kicked by 'who'!')
  1605. money = money/2
  1606. monoppo = monoppo + money/2
  1607. call message doorname,linenumber, GRE' You lost 'WHI'$'money/2''GRE'.',1
  1608. call message doorname,linenumber, GRE' You have 0 hitpoints.',1
  1609. call message doorname,linenumber, CYA' Oh well, better luck next time!',1
  1610. call SAVEOPPO
  1611. call EVENER
  1612. signal MENU
  1613.  
  1614. DRAWFIGHT:
  1615. call checkca
  1616. kills = kills + 1
  1617. kiloppo = kiloppo + 1
  1618. hitpoints = 0
  1619. wutoppo = 0
  1620. defoppo = 1
  1621. address command "wait 1"
  1622. call message doorname,linenumber, CLS,1
  1623. call message doorname,linenumber, ' ',1
  1624. call message doorname,linenumber, RED center('AMAZING!',78),1
  1625. call message doorname,linenumber, ' ',1
  1626. call message doorname,linenumber, MAG center('Both of you killed each other with your final blows!',78),1
  1627. call message doorname,linenumber, MAG center('You both have 0 hitpoints, you kept your money.',78),1
  1628. call message doorname,linenumber, ' ',1
  1629. call writeln(news,handle' and 'who' killed each other!')
  1630. call CHECKRANK
  1631. call SAVEOPPO
  1632. address command "wait 1"
  1633. signal MENU
  1634.  
  1635. TOP:
  1636. call checkca
  1637. call message doorname,linenumber, ' ',1
  1638. call message doorname,linenumber, RED'One Moment, Calculating High Scores...',1
  1639. call POINTCK
  1640. turnsleft = turnsleft + 1
  1641. call HICK
  1642. call SHOWIT
  1643. signal MENU
  1644.  
  1645. HICK:
  1646. call checkca
  1647. call open(top10,'doors:Yuppie/TopOnes','R')
  1648. topalias.1 = handle
  1649. topscore.1 = points
  1650. do i = 2 to 11
  1651.    tops = readln(top10)
  1652.    topalias.i = delword(tops,1,1)
  1653.    topscore.i = word(tops,1)
  1654.    if topalias.1 = topalias.i then topscore.i = -1
  1655. end
  1656. call close(top10)
  1657. do i = 1 to 10
  1658.    do h = i + 1 to 11
  1659.       if topscore.i < topscore.h then do
  1660.          temp = topscore.i
  1661.          topscore.i = topscore.h
  1662.          topscore.h = temp
  1663.          tempor = topalias.i
  1664.          topalias.i = topalias.h
  1665.          topalias.h = tempor
  1666.       end
  1667.    end
  1668. end
  1669. return
  1670.  
  1671. SHOWIT:
  1672. call checkca
  1673. call message doorname,linenumber, CLS,1
  1674. call message doorname,linenumber, ' ',1
  1675. call message doorname,linenumber, center('       'BLUCYA'   Top 10 Yuppies   'RESET'',78),1
  1676. call message doorname,linenumber, BLU center('--------------------------------------------',73)RESET,1
  1677. call message doorname,linenumber, ' ',1
  1678. call open(top10,'doors:Yuppie/TopOnes','W')
  1679. do i = 1 to 10
  1680.     topscore.i = left(topscore.i,25)
  1681.     topalias.i = left(topalias.i,15)
  1682.     call message doorname,linenumber, 'º               'RED||topscore.i''CYA||topalias.i'   ³',1
  1683.     call writeln(top10,topscore.i' 'topalias.i)
  1684.     end
  1685. call close(top10)
  1686. do i = 1 to Lines - 18
  1687.    call message doorname,linenumber, '',1
  1688. end
  1689. call hotkey doorname,linenumber, 'Press 'RED'RETURN'WHI' when finished: '
  1690. call checkca
  1691. signal MENU
  1692.  
  1693. TRIP:
  1694. call checkca
  1695. call EVENER
  1696. randm = RANDOM(1,3,Time('s'))
  1697. rna = RANDOM(1,6,Time('s'))
  1698. call message doorname,linenumber, CLS,1
  1699. call message doorname,linenumber, ' ',1
  1700. call message doorname,linenumber, center('             'BLUCYA'   First of the Last Travel Agency   'RESET'',78),1
  1701. call message doorname,linenumber, ' ',1
  1702. call message doorname,linenumber, CYA center('Todays places to travel',78),1
  1703. call message doorname,linenumber, BLU center('--------------------------',78),1
  1704. if randm = 1 then call message doorname,linenumber, WHI center('A. Washington D.C.   ',78),1
  1705. if randm = 2 then call message doorname,linenumber, WHI center('A. Wall Street - NY  ',78),1
  1706. if randm = 3 then call message doorname,linenumber, WHI center('A. Outer Mongolia    ',78),1
  1707. if randm = 1 then call message doorname,linenumber, WHI center('B. Peru              ',78),1
  1708. if randm = 2 then call message doorname,linenumber, WHI center('B. Peru              ',78),1
  1709. if randm = 3 then call message doorname,linenumber, WHI center('B. England           ',78),1
  1710. if randm = 1 then call message doorname,linenumber, WHI center('C. Germany           ',78),1
  1711. if randm = 2 then call message doorname,linenumber, WHI center('C. Switzerland       ',78),1
  1712. if randm = 3 then call message doorname,linenumber, WHI center('C. Niagra Falls - NY ',78),1
  1713. if randm = 1 then call message doorname,linenumber, WHI center('D. Verona, Italy     ',78),1
  1714. if randm = 2 then call message doorname,linenumber, WHI center('D. Athens, Greece    ',78),1
  1715. if randm = 3 then call message doorname,linenumber, WHI center('D. Disney World      ',78),1
  1716. call message doorname,linenumber, ' 'RESET,1
  1717. call message doorname,linenumber, CYA'Where do you want to travel, Sir?  'BLU'['YEL'Q'BLU']'CYA' Quits:'BLU'> ',0
  1718. call hotkey doorname,linenumber,''
  1719. trav = upper(result)
  1720. if trav = 'Q' then do
  1721. maincount = 0
  1722. signal MENU
  1723. end
  1724. if randm = 1 & trav = 'A' then signal WASHINGTON
  1725. if randm = 1 & trav = 'B' then signal PERU
  1726. if randm = 1 & trav = 'C' then signal GERMANY
  1727. if randm = 1 & trav = 'D' then signal VERONA
  1728. if randm = 2 & trav = 'A' then signal WALLSTREET
  1729. if randm = 2 & trav = 'B' then signal PERU
  1730. if randm = 2 & trav = 'C' then signal SWITZERLAND
  1731. if randm = 2 & trav = 'D' then signal ATHENS
  1732. if randm = 3 & trav = 'A' then signal MONGOLIA
  1733. if randm = 3 & trav = 'B' then signal ENGLAND
  1734. if randm = 3 & trav = 'C' then signal NIAGARA
  1735. if randm = 3 & trav = 'D' then signal DISNEY
  1736. signal TRIP
  1737.  
  1738. WASHINGTON:
  1739. call checkca
  1740. price = 9000
  1741. call message doorname,linenumber, CLS,1
  1742. call message doorname,linenumber, center(''BLUCYA'   Going to Washington D.C.   'RESET'',78),1
  1743. call message doorname,linenumber, ' ',1
  1744. call message doorname,linenumber, '   Washington D.C. is the political gut of our nation.  All the',1
  1745. call message doorname,linenumber, ' largest decisions are made here that effect our lives greatly.',1
  1746. call message doorname,linenumber, ' (And hopefully our president has nothing to do with them.)',1
  1747. call message doorname,linenumber, ' ',1
  1748. call GOING
  1749. call message doorname,linenumber, RED'Arrived in Washington D.C.',1
  1750. address command "wait 1"
  1751. call message doorname,linenumber, ' ',1
  1752. rannum = RANDOM(1,5,Time('s'))
  1753. if rannum = 1 then do
  1754.    call message doorname,linenumber, CYA'In Washington D.C. you meet the',1
  1755.    call message doorname,linenumber, CYA'president and get a loan from him!',1
  1756.    call message doorname,linenumber, YEL'You get $30000!',1
  1757.    call message doorname,linenumber, BLU'There is nothing like living off of',1
  1758.    call message doorname,linenumber, BLU'honest taxpayers money, eh?',1
  1759.    money = money + 30000
  1760.   end
  1761. if rannum = 2 then do
  1762.    call message doorname,linenumber, CYA'Lean too far out of the Washington',1
  1763.    call message doorname,linenumber, CYA'Monument and fall!',1
  1764.    call message doorname,linenumber, YEL'You lose 20 hitpoints.',1
  1765.    if hitpoints < 20 then hitpoints = 0
  1766.    if hitpoints >= 20 then hitpoints = hitpoints - 20
  1767.   end
  1768. if rannum = 3 then do
  1769.    call message doorname,linenumber, CYA'Get appointed a supreme court judge!',1
  1770.    call message doorname,linenumber, YEL'You earn $20000!',1
  1771.    money = money + 20000
  1772.   end
  1773. if rannum = 4 then do
  1774.    call message doorname,linenumber, CYA'Get locked in a taxi from hell!',1
  1775.    call message doorname,linenumber, CYA'Tour the entire city 800 times over.',1
  1776.    call message doorname,linenumber, YEL'Lose $15000 cab fair.',1
  1777.    if money < 15000 then money = 0
  1778.    if money >= 15000 then money = money - 15000
  1779.   end
  1780. if rannum = 5 then do
  1781.    call message doorname,linenumber, CYA'Read the constitution and feel',1
  1782.    call message doorname,linenumber, CYA'intellectually enlightened!',1
  1783.    call message doorname,linenumber, YEL'Recieve 40 hitpoints.',1
  1784.    if maxpoints >= 40 then hitpoints = hitpoints + 40
  1785.    if maxpoints < 40 then hitpoints = maxpoints
  1786.   end
  1787. signal RATRACE
  1788.  
  1789. RATRACE:
  1790. call checkca
  1791. address command "wait 1"
  1792. call message doorname,linenumber, ' ',1
  1793. call hotkey doorname,linenumber, 'Press 'RED'RETURN'WHI' when finished: '
  1794. call checkca
  1795. call message doorname,linenumber, ' ',1
  1796. call message doorname,linenumber, GRE'Well, its been fun but you gotta',1
  1797. call message doorname,linenumber, GRE'get back into the rat race!',1
  1798. call message doorname,linenumber, ' 'RESET,1
  1799. address command "wait 1"
  1800. signal MENU
  1801.  
  1802. PERU:
  1803. call checkca
  1804. price = 7000
  1805. call message doorname,linenumber, CLS,1
  1806. call message doorname,linenumber, center(''BLUCYA'   Going to Peru   'RESET'',78),1
  1807. call message doorname,linenumber, ' ',1
  1808. call message doorname,linenumber, '   Peru is a land of beauty and mystery, just beware, its a',1
  1809. call message doorname,linenumber, ' jungle out there!',1
  1810. call message doorname,linenumber, ' ',1
  1811. call GOING
  1812. call message doorname,linenumber, RED'Arrived in Peru.',1
  1813. address command "wait 1"
  1814. call message doorname,linenumber, ' ',1
  1815. rannum = RANDOM(1,5,Time('s'))
  1816. if rannum = 1 then do
  1817.    call message doorname,linenumber, CYA'Learn ancient healing spells from',1
  1818.    call message doorname,linenumber, CYA'old scrolls...',1
  1819.    call message doorname,linenumber, YEL'Gain 'maxpoints' hitpoints!',1
  1820.    hitpoints = maxpoints
  1821.   end
  1822. if rannum = 2 then do
  1823.    call message doorname,linenumber, CYA'Fall off of cliff!',1
  1824.    call message doorname,linenumber, YEL'Lost 30 hitpoints.',1
  1825.    if hitpoints < 30 then hitpoints = 0
  1826.    if hitpoints >= 30 then hitpoints = hitpoints - 30
  1827.   end
  1828. if rannum = 3 then do
  1829.    call message doorname,linenumber, CYA'Discover gold in an ancient tomb!',1
  1830.    call message doorname,linenumber, YEL'Gain $50000!',1
  1831.    money = money + 50000
  1832.   end
  1833. if rannum = 4 then do
  1834.    call message doorname,linenumber, CYA'Get bitten by a snake and go to the',1
  1835.    call message doorname,linenumber, CYA'witch doctor!',1
  1836.    call message doorname,linenumber, YEL'He charges you $10000 for services.',1
  1837.    if money < 10000 then money = 0
  1838.    if money >= 10000 then money = money - 10000
  1839.   end
  1840. if rannum = 5 then do
  1841.    call message doorname,linenumber, CYA'Learn to dine CANNIBAL style!',1
  1842.    call message doorname,linenumber, YEL'Gain 40 hitpoints!',1
  1843.    if maxpoints >= 40 then hitpoints = hitpoints + 40
  1844.    if maxpoints < 40 then hitpoints = maxpoints
  1845.   end
  1846. call message doorname,linenumber, ' ',1
  1847. signal RATRACE
  1848.  
  1849. GERMANY:
  1850. call checkca
  1851. price = 10000
  1852. call message doorname,linenumber, CLS,1
  1853. call message doorname,linenumber, center(''BLUCYA'   Going to Germany   'RESET'',78),1
  1854. call message doorname,linenumber, ' ',1
  1855. call message doorname,linenumber, '   Ah Germany, good ol Deutschland.  Home to many beers and',1
  1856. call message doorname,linenumber, ' bratwursts, a country of great prosperity risen out of the ashes',1
  1857. call message doorname,linenumber, ' of World War II.  (Not to mention it is great for partying!)',1
  1858. call message doorname,linenumber, ' ',1
  1859. call GOING
  1860. call message doorname,linenumber, RED'Arrived in Germany.',1
  1861. address command "wait 1"
  1862. call message doorname,linenumber, ' ',1
  1863. rannum = RANDOM(1,5,Time('s'))
  1864. if rannum = 1 then do
  1865.    call message doorname,linenumber, CYA'Win a German Bratwurst eating contest!',1
  1866.    call message doorname,linenumber, YEL'Win $30000 and a Volkswagen!',1
  1867.    money = money + 30000
  1868.    if armor = arm1 | armor = arm2 | armor = arm3 | armor = arm4 | armor = arm5 | armor = arm6 | armor = arm7 | armor = arm8 then armor = arm9
  1869.   end
  1870. if rannum = 2 then do
  1871.    call message doorname,linenumber, CYA'Party too much and have a hangover the',1
  1872.    call message doorname,linenumber, CYA'size of Africa!',1
  1873.    call message doorname,linenumber, YEL'Lose 20 hitpoints.',1
  1874.    if hitpoints < 20 then hitpoints = 0
  1875.    if hitpoints >= 20 then hitpoints = hitpoints - 20
  1876.   end
  1877. if rannum = 3 then do
  1878.    call message doorname,linenumber, CYA'Total your vehicle on the autobahn!',1
  1879.    call message doorname,linenumber, YEL'Lose $25000 for repairs.',1
  1880.    if money < 25000 then money = 0
  1881.    if money >= 25000 then money = money - 25000
  1882.   end
  1883. if rannum = 4 then do
  1884.    call message doorname,linenumber, CYA'Recieve a vitamin mixture from the',1
  1885.    call message doorname,linenumber, CYA'local Apothecary!',1
  1886.    call message doorname,linenumber, YEL'Gain 'maxpoints' hitpoints!',1
  1887.    hitpoints = maxpoints
  1888.   end
  1889. if rannum = 5 then do
  1890.    call message doorname,linenumber, CYA'Get caught on the cirle drives for',1
  1891.    call message doorname,linenumber, CYA'three days!',1
  1892.    call message doorname,linenumber, YEL'Lose $1000 for gas.',1
  1893.    if money < 1000 then money = 0
  1894.    if money >= 1000 then money = money - 1000
  1895.   end
  1896. call message doorname,linenumber, ' ',1
  1897. signal RATRACE
  1898.  
  1899. VERONA:
  1900. call checkca
  1901. price = 4000
  1902. call message doorname,linenumber, CLS,1
  1903. call message doorname,linenumber, center(''BLUCYA'   Going to Verona, Italy   'RESET'',78),1
  1904. call message doorname,linenumber, ' ',1
  1905. call message doorname,linenumber, '   Verona, Italy -- the host city to the immortal love story of',1
  1906. call message doorname,linenumber, ' Shakespeares Romeo and Juliet, truly the greatest love story',1
  1907. call message doorname,linenumber, ' ever written...  (although a bit cryptic!)',1
  1908. call message doorname,linenumber, ' ',1
  1909. call GOING
  1910. call message doorname,linenumber, RED'Arrived in Verona, Italy.',1
  1911. address command "wait 1"
  1912. call message doorname,linenumber, ' ',1
  1913. rannum = RANDOM(1,4,Time('s'))
  1914. if rannum = 1 then do
  1915.    call message doorname,linenumber, CYA'See a play done of Romeo and Juliet!',1
  1916.    call message doorname,linenumber, YEL'Pay $4000 to see it.',1
  1917.    if money < 4000 then money = 0
  1918.    if money >= 4000 then money = money - 4000
  1919.   end
  1920. if rannum = 2 then do
  1921.    call message doorname,linenumber, CYA'Visit the Capulets Tomb and get',1
  1922.    call message doorname,linenumber, CYA'trapped for a week!',1
  1923.    call message doorname,linenumber, YEL'Lose 40 hitpoints!',1
  1924.    if hitpoints < 40 then hitpoints = 0
  1925.    if hitpoints >= 40 then hitpoints = hitpoints - 40
  1926.   end
  1927. if rannum = 3 then do
  1928.    call message doorname,linenumber, CYA'Some people think you look just like',1
  1929.    call message doorname,linenumber, CYA'Romeo! (Which is odd if you are a woman.)',1
  1930.    call message doorname,linenumber, YEL'Recieve in gifts $18000!',1
  1931.    money = money + 18000
  1932.   end
  1933. if rannum = 4 then do
  1934.    call message doorname,linenumber, CYA'Some people think you look just like',1
  1935.    call message doorname,linenumber, CYA'Juliet! (Whick is odd if you are a man.)',1
  1936.    call message doorname,linenumber, YEL'Recieve in gifts $19000!',1
  1937.    money = money + 19000
  1938.   end
  1939. signal RATRACE
  1940.  
  1941. WALLSTREET:
  1942. call checkca
  1943. price = 12500
  1944. call message doorname,linenumber, CLS,1
  1945. call message doorname,linenumber, center(''BLUCYA'   Going to Wall Street!   'RESET'',78),1
  1946. call message doorname,linenumber, ' ',1
  1947. call message doorname,linenumber, '   Wall Street, where money is made and fortunes are lost.  Where',1
  1948. call message doorname,linenumber, ' great men are made and greedy men are broken.  This crazy place',1
  1949. call message doorname,linenumber, ' is locked in the heart of a crazy city, where else, New York.',1
  1950. call message doorname,linenumber, ' ',1
  1951. call GOING
  1952. call message doorname,linenumber, RED'Arrived at Wall Street.',1
  1953. address command "wait 1"
  1954. call message doorname,linenumber, ' ',1
  1955. rannum = RANDOM(1,5,Time('s'))
  1956. if rannum = 1 then do
  1957.    call message doorname,linenumber, CYA'You break even on the stocks...',1
  1958.    call message doorname,linenumber, YEL'Recieve $12500 salary.',1
  1959.    money = money + 12500
  1960.   end
  1961. if rannum = 2 then do
  1962.    call message doorname,linenumber, CYA'HIT IT BIG IN DOW JONES!',1
  1963.    call message doorname,linenumber, YEL'Recieve $75000!!!'RESET,1
  1964.    money = money + 75000
  1965.   end
  1966. if rannum = 3 then do
  1967.    call message doorname,linenumber, CYA'Get mugged in the big apple!',1
  1968.    call message doorname,linenumber, YEL'Lose $20000.',1
  1969.    if money < 20000 then money = 0
  1970.    if money >= 20000 then money = money - 20000
  1971.   end
  1972. if rannum = 4 then do
  1973.    call message doorname,linenumber, CYA'Get hit by a maniac cab driver!',1
  1974.    call message doorname,linenumber, YEL'You lose 50 hitpoints.',1
  1975.    if hitpoints < 50 then hitpoints = 0
  1976.    if hitpoints >= 50 then hitpoints = hitpoints - 50
  1977.   end
  1978. if rannum = 5 then do
  1979.    call message doorname,linenumber, CYA'AT&T goes through the roof!',1
  1980.    call message doorname,linenumber, YEL'Gain $55000!',1
  1981.    money = money + 55000
  1982.   end
  1983. signal RATRACE
  1984.  
  1985. SWITZERLAND:
  1986. call checkca
  1987. price = 8500
  1988. call message doorname,linenumber, CLS,1
  1989. call message doorname,linenumber, center(''BLUCYA'   Going to Switzerland   'RESET'',78),1
  1990. call message doorname,linenumber, ' ',1
  1991. call message doorname,linenumber, '   Switzerland is famous for skiing, watches, and many other things',1
  1992. call message doorname,linenumber, ' that I guess I am too stupid to think of right now.  The swiss,',1
  1993. call message doorname,linenumber, ' locked in a mountainous cage, stands protected from enemy countries',1
  1994. call message doorname,linenumber, ' thus remaining one of the FEW neutral countries.',1
  1995. call message doorname,linenumber, ' ',1
  1996. call GOING
  1997. call message doorname,linenumber, RED'Arrived in Swizerland.',1
  1998. address command "wait 1"
  1999. call message doorname,linenumber, ' 'RESET,1
  2000. rannum = RANDOM(1,5,Time('s'))
  2001. if rannum = 1 then do
  2002.    call message doorname,linenumber, CYA'Go skiing in the Swiss Alps and',1
  2003.    call message doorname,linenumber, CYA'break your leg!',1
  2004.    call message doorname,linenumber, YEL'Lose 40 hitpoints.',1
  2005.    if hitpoints < 40 then hitpoints = 0
  2006.    if hitpoints >= 40 then hitpoints = hitpoints - 40
  2007.   end
  2008. if rannum = 2 then do
  2009.    call message doorname,linenumber, CYA'AVALANCHE!!! You are buried in',1
  2010.    call message doorname,linenumber, CYA'snow!',1
  2011.    call message doorname,linenumber, YEL'Lose 40 hitpoints.',1
  2012.    if hitpoints < 40 then hitpoints = 0
  2013.    if hitpoints >= 40 then hitpoints = hitpoints - 40
  2014.   end
  2015. if rannum = 3 then do
  2016.    call message doorname,linenumber, CYA'Save a millionares life in a chair',1
  2017.    call message doorname,linenumber, CYA'lift accident! (He fell on you.)',1
  2018.    call message doorname,linenumber, YEL'Win $50000!',1
  2019.    money = money + 50000
  2020.   end
  2021. if rannum = 4 then do
  2022.    call message doorname,linenumber, CYA'Eat enough to feed a horse!',1
  2023.    call message doorname,linenumber, YEL'Gain 'maxpoints' hitpoints.',1
  2024.    hitpoints = maxpoints
  2025.   end
  2026. if rannum = 5 then do
  2027.    call message doorname,linenumber, CYA'Find a cave with ancient artifacts!',1
  2028.    call message doorname,linenumber, YEL'Get $30000!',1
  2029.    money = money + 30000
  2030.   end
  2031. signal RATRACE
  2032.  
  2033. ATHENS:
  2034. call checkca
  2035. price = 10000
  2036. call message doorname,linenumber, CLS,1
  2037. call message doorname,linenumber, center(''BLUCYA'   Going to Athens   'RESET'',78),1
  2038. call message doorname,linenumber, ' ',1
  2039. call message doorname,linenumber, '   Athens, Greece, the heart of Greek mythology.  Many stories and',1
  2040. call message doorname,linenumber, ' plays were made of this place relating to the Gods, and their',1
  2041. call message doorname,linenumber, ' adventures.',1
  2042. call message doorname,linenumber, ' ',1
  2043. call GOING
  2044. call message doorname,linenumber, RED'Arrived in Athens, Greece.',1
  2045. address command "wait 1"
  2046. call message doorname,linenumber, ' ',1
  2047. rannum = RANDOM(1,5,Time('s'))
  2048. if rannum = 1 then do
  2049.    call message doorname,linenumber, CYA'Go to watch a play of Antigone.',1
  2050.    call message doorname,linenumber, YEL'Pay $5000.',1
  2051.    if money < 5000 then money = 0
  2052.    if money >= 5000 then money = money - 5000
  2053.   end
  2054. if rannum = 2 then do
  2055.    call message doorname,linenumber, CYA'Meet Zeus!  He gives you a gift!',1
  2056.    call message doorname,linenumber, YEL'Recieve $30000!',1
  2057.    money = money + 30000
  2058.   end
  2059. if rannum = 3 then do
  2060.    call message doorname,linenumber, CYA'Hades kidnaps you to the underword!',1
  2061.    call message doorname,linenumber, YEL'Lose 50 hitpoints.',1
  2062.    if hitpoints < 50 then hitpoints = 0
  2063.    if hitpoints >= 50 then hitpoints = hitpoints - 50
  2064.   end
  2065. if rannum = 4 then do
  2066.    call message doorname,linenumber, CYA'Eat ambrosia and drink nectar!',1
  2067.    call message doorname,linenumber, YEL'Gain 'maxpoints' hitpoints!',1
  2068.    hitpoints = maxpoints
  2069.   end
  2070. if rannum = 5 then do
  2071.    call message doorname,linenumber, CYA'Buy a colluseum!',1
  2072.    call message doorname,linenumber, YEL'Pay $22000!',1
  2073.    if money < 22000 then money = 0
  2074.    if money >= 22000 then money = money - 22000
  2075.   end
  2076. signal RATRACE
  2077.  
  2078. MONGOLIA:
  2079. call checkca
  2080. price = 4000
  2081. call message doorname,linenumber, CLS,1
  2082. call message doorname,linenumber, center(''BLUCYA'   Going to Outer Mongolia!   'RESET'',78),1
  2083. call message doorname,linenumber, ' ',1
  2084. call message doorname,linenumber, '   Outer Mongolia... hmm.. hard to explain, but in itself an ',1
  2085. call message doorname,linenumber, ' adventure.  This country was the fertle ground in which Ghengis',1
  2086. call message doorname,linenumber, ' Kahn rose out of to ravage China. (And we all know what hes like!',1
  2087. call message doorname,linenumber, ' -imagine what the country must be like!) ',1
  2088. call message doorname,linenumber, ' ',1
  2089. call GOING
  2090. call message doorname,linenumber, RED'Arrived in Outer Mongolia.',1
  2091. address command "wait 1"
  2092. call message doorname,linenumber, ' ',1
  2093. rannum = RANDOM(1,5,Time('s'))
  2094. if rannum = 1 then do
  2095.    call message doorname,linenumber, CYA'Learn the ancient art of wizardry',1
  2096.    call message doorname,linenumber, CYA'and heal yourself!',1
  2097.    call message doorname,linenumber, YEL'Gain 'maxpoints' hitpoints!',1
  2098.    hitpoints = maxpoints
  2099.   end
  2100. if rannum = 2 then do
  2101.    call message doorname,linenumber, CYA'Climb to a mountaintop to get words',1
  2102.    call message doorname,linenumber, CYA'of wisdom from an old wiseman only',1
  2103.    call message doorname,linenumber, CYA'to find him dead!',1
  2104.    call message doorname,linenumber, YEL'Lose 40 hitpoints for the effort.',1
  2105.    call message doorname,linenumber, YEL'Pay $10000 for funeral services.',1
  2106.    if hitpoints < 40 then hitpoints = 0
  2107.    if hitpoints >= 40 then hitpoints = hitpoints - 40
  2108.    if money < 10000 then money = 0
  2109.    if money >= 10000 then money = money - 10000
  2110.   end
  2111. if rannum = 3 then do
  2112.    call message doorname,linenumber, CYA'Win Mongolias famous gameshow:',1
  2113.    call message doorname,linenumber, CYA'STALK DOWN THE WILD BEAR AND KILL',1
  2114.    call message doorname,linenumber, CYA'IT WITH YOUR BARE HANDS AND TONGUE!',1
  2115.    call message doorname,linenumber, YEL'Win $40000!',1
  2116.    money = money + 40000
  2117.   end
  2118. if rannum = 4 then do
  2119.    call message doorname,linenumber, CYA'Record Mongolias #1 song:',1
  2120.    call message doorname,linenumber, CYA'Ode to Ghengis Kahn.',1
  2121.    call message doorname,linenumber, YEL'Win $25000!',1
  2122.    money = money + 25000
  2123.   end
  2124. if rannum = 5 then do
  2125.    call message doorname,linenumber, CYA'Break Mongolias law of not',1
  2126.    call message doorname,linenumber, CYA'using utensils.',1
  2127.    call message doorname,linenumber, YEL'Fined $20000.',1
  2128.    if money < 20000 then money = 0
  2129.    if money >= 20000 then money = money - 20000
  2130.   end
  2131. signal RATRACE
  2132.  
  2133. ENGLAND:
  2134. call checkca
  2135. price = 9500
  2136. call message doorname,linenumber, CLS,1
  2137. call message doorname,linenumber, center(''BLUCYA'   Going to England   'RESET'',78),1
  2138. call message doorname,linenumber, ' ',1
  2139. call message doorname,linenumber, '   Jolly Ol England, as they say, is a whole different culture from',1
  2140. call message doorname,linenumber, ' the American sort.  Here queens and kings are supported (as well as',1
  2141. call message doorname,linenumber, ' Amigas!)',1
  2142. call message doorname,linenumber, ' ',1
  2143. call GOING
  2144. call message doorname,linenumber, RED'Arrived in England.',1
  2145. address command "wait 1"
  2146. call message doorname,linenumber, ' ',1
  2147. rannum = RANDOM(1,5,Time('s'))
  2148. if rannum = 1 then do
  2149.    call message doorname,linenumber, CYA'Become the Price of Wales!',1
  2150.    call message doorname,linenumber, YEL'Earn $32000!',1
  2151.    money = money + 32000
  2152.   end
  2153. if rannum = 2 then do
  2154.    call message doorname,linenumber, CYA'Discover the genetic secret of',1
  2155.    call message doorname,linenumber, CYA'why the english have extremely',1
  2156.    call message doorname,linenumber, CYA'large noses!',1
  2157.    call message doorname,linenumber, YEL'Win $23000!',1
  2158.    money = money + 23000
  2159.   end
  2160. if rannum = 3 then do
  2161.    call message doorname,linenumber, CYA'Get envolved in a 20 bicycle',1
  2162.    call message doorname,linenumber, CYA'pileup!',1
  2163.    call message doorname,linenumber, YEL'Lose 35 hitpoints.',1
  2164.    if hitpoints < 35 then hitpoints = 0
  2165.    if hitpoints >= 35 then hitpoints = hitpoints - 35
  2166.   end
  2167. if rannum = 4 then do
  2168.    call message doorname,linenumber, CYA'Get pulled over for driving on the',1
  2169.    call message doorname,linenumber, CYA'wrong side of the road!',1
  2170.    call message doorname,linenumber, YEL'Fined $35000!',1
  2171.    if money < 35000 then money = 0
  2172.    if money >= 35000 then money = money - 35000
  2173.   end
  2174. if rannum = 5 then do
  2175.    call message doorname,linenumber, CYA'Accidentally get trapped watching a',1
  2176.    call message doorname,linenumber, CYA'9 hour movie that is extremely boring',1
  2177.    call message doorname,linenumber, CYA'and not even in the english language!',1
  2178.    call message doorname,linenumber, YEL'Lose $23000 parking meter fees.',1
  2179.    call message doorname,linenumber, YEL'Lose 10 hitpoints for IQ point loss.',1
  2180.    if money < 23000 then money = 0
  2181.    if money >= 23000 then money = money - 23000
  2182.    if hitpoints < 10 then hitpoints = 0
  2183.    if hitpoints >= 10 then hitpoints = hitpoints - 10
  2184.   end
  2185. signal RATRACE
  2186.  
  2187. NIAGARA:
  2188. call checkca
  2189. price = 11000
  2190. call message doorname,linenumber, CLS,1
  2191. call message doorname,linenumber, center(''BLUCYA'   Going to Niagara Falls, NY   'RESET'',78),1
  2192. call message doorname,linenumber, ' ',1
  2193. call message doorname,linenumber, '   Niagara Falls, the famed gigantic falls which have claimed lives',1
  2194. call message doorname,linenumber, ' and made fame.  Their sight is breathtaking.  --Plus there are a',1
  2195. call message doorname,linenumber, ' multitude of wax museums for those who dont like water!',1
  2196. call message doorname,linenumber, ' ',1
  2197. call GOING
  2198. call message doorname,linenumber, RED'Arrived in Niagara Falls, NY.',1
  2199. address command "wait 1"
  2200. call message doorname,linenumber, ' ',1
  2201. rannum = RANDOM(1,6,Time('s'))
  2202. if rannum = 1 then do
  2203.    call message doorname,linenumber, CYA'Walk across the falls on a',1
  2204.    call message doorname,linenumber, CYA'tightrope!',1
  2205.    call message doorname,linenumber, YEL'Win $20000!',1
  2206.    money = money + 20000
  2207.   end
  2208. if rannum = 2 then do
  2209.    call message doorname,linenumber, CYA'Attempt at walking across the',1
  2210.    call message doorname,linenumber, CYA'falls on a tightrope--AND FALL',1
  2211.    call message doorname,linenumber, CYA'IN!  (Smooth move ex-lax!)',1
  2212.    call message doorname,linenumber, YEL'Lose 50 hitpoints.',1
  2213.    if hitpoints < 50 then hitpoints = 0
  2214.    if hitpoints >= 50 then hitpoints = hitpoints - 50
  2215.   end
  2216. if rannum = 3 then do
  2217.    call message doorname,linenumber, CYA'Go down the falls in a barrel!',1
  2218.    call message doorname,linenumber, CYA'And.. well, it isnt pretty.',1
  2219.    call message doorname,linenumber, YEL'Lose 50 hitpoints.',1
  2220.    if hitpoints < 50 then hitpoints = 0
  2221.    if hitpoints >= 50 then hitpoints = hitpoints - 50
  2222.   end
  2223. if rannum = 4 then do
  2224.    call message doorname,linenumber, CYA'Get stuck in wax museum hell!',1
  2225.    call message doorname,linenumber, YEL'Lose $19000!',1
  2226.    if money < 19200 then money = 0
  2227.    if money >= 19000 then money = money - 19000
  2228.   end
  2229. if rannum = 5 then do
  2230.    call message doorname,linenumber, CYA'Discover PLUTONIUM under the falls!',1
  2231.    call message doorname,linenumber, YEL'Awarded $55000!',1
  2232.    money = money + 55000
  2233.   end
  2234. if rannum = 6 then do
  2235.    call message doorname,linenumber, CYA'Discover the fountain of youth in',1
  2236.    call message doorname,linenumber, CYA'the falls!',1
  2237.    call message doorname,linenumber, YEL'You get 'maxpoints' hitpoints!',1
  2238.    hitpoints = maxpoints
  2239.   end
  2240. signal RATRACE
  2241.  
  2242. DISNEY:
  2243. call checkca
  2244. price = 13000
  2245. call message doorname,linenumber, CLS,1
  2246. call message doorname,linenumber, BLUCYA'   I am Going to Disney World!   'RESET,1
  2247. call message doorname,linenumber, ' ',1
  2248. call message doorname,linenumber, '   'handle', you have just Won the Super Bowl!  Where are you',1
  2249. call message doorname,linenumber, ' going next?  ;-)  Yes, childrens paradise and adults wonder,',1
  2250. call message doorname,linenumber, ' this wonderous place was founded by a man who wanted a fun place',1
  2251. call message doorname,linenumber, ' different from the dirty, dusty carnivals in this world, Walt Disney',1
  2252. call message doorname,linenumber, ' ',1
  2253. call GOING
  2254. call message doorname,linenumber, RED'Arrived in Disney World.',1
  2255. address command "wait 1"
  2256. call message doorname,linenumber, ' ',1
  2257. rannum = RANDOM(1,5,Time('s'))
  2258. if rannum = 1 then do
  2259.    call message doorname,linenumber, CYA'Uncover Disneys multibillion',1
  2260.    call message doorname,linenumber, CYA'dollar plot to initiate SDI!',1
  2261.    call message doorname,linenumber, YEL'Awarded $33000!',1
  2262.    money = money + 33000
  2263.   end
  2264. if rannum = 2 then do
  2265.    call message doorname,linenumber, CYA'Get trapped on Space Mountain',1
  2266.    call message doorname,linenumber, CYA'roller coaster without a seatbelt!',1
  2267.    call message doorname,linenumber, YEL'Lose 60 hitpoints.',1
  2268.    if hitpoints < 60 then hitpoints = 0
  2269.    if hitpoints >= 60 then hitpoints = hitpoints - 60
  2270.   end
  2271. if rannum = 3 then do
  2272.    call message doorname,linenumber, CYA'You get to star in a Disney movie!',1
  2273.    call message doorname,linenumber, YEL'Payed $20000!',1
  2274.    money = money + 20000
  2275.   end
  2276. if rannum = 4 then do
  2277.    call message doorname,linenumber, CYA'You are mysteriously turned into an',1
  2278.    call message doorname,linenumber, CYA'animated penguin!',1
  2279.    call message doorname,linenumber, YEL'Lose $40000! (Penguins have no',1
  2280.    call message doorname,linenumber, YEL'pockets.. do they?)',1
  2281.    if money < 40000 then money = 0
  2282.    if money >= 40000 then money = money - 40000
  2283.   end
  2284. if rannum = 5 then do
  2285.    call message doorname,linenumber, CYA'Your fairy godfather grants you',1
  2286.    call message doorname,linenumber, CYA'hitpoints!',1
  2287.    call message doorname,linenumber, YEL'Granted 'maxpoints' hitpoints!',1
  2288.    hitpoints = maxpoints
  2289.   end
  2290. signal RATRACE
  2291.  
  2292. GOING:
  2293. call checkca
  2294. call message doorname,linenumber, ' ',1
  2295. call message doorname,linenumber, CYA'You have $'WHI''money''CYA'.  The trip costs 'WHI''price''CYA'.',1
  2296. call message doorname,linenumber, ' ',1
  2297. call message doorname,linenumber, CYA'Wanna go? ('GRE'Y'CYA'/'RED'n'CYA'):'BLU'> ',0
  2298. call hotkey doorname,linenumber,''
  2299. ans = upper(result)
  2300. if ans = 'N' then signal TRIP
  2301. call checkca
  2302. call message doorname,linenumber, CLS,1
  2303. if money < price then do
  2304.    call message doorname,linenumber, ' ',1
  2305.    call message doorname,linenumber, RED center('YOU DONT HAVE ENOUGH MONEY TO GO!',78),1
  2306.    call message doorname,linenumber, ' 'RESET,1
  2307.    address command "wait 1"
  2308.    signal TRIP
  2309.   end
  2310. money = money - price
  2311. call message doorname,linenumber, ' ',1
  2312. call message doorname,linenumber, GRE'Money Paid...'RESET,1
  2313. call message doorname,linenumber, MAG'Taking flight...'RESET,1
  2314. rando = RANDOM(1,20,Time('s'))
  2315. address command "wait 1"
  2316. call message doorname,linenumber, YEL' You ate the planes food -- gain 'rando' hitpoints.'RESET,1
  2317. address command "wait 1"
  2318. hitpoints = hitpoints + rando
  2319. call message doorname,linenumber, ' ',1
  2320. call message doorname,linenumber, MAG'Landing...',1
  2321. address command "wait 1"
  2322. ransak = RANDOM(1,200,Time('s'))
  2323. if ransak = 13 | ransak = 21 | ransak = 192 | ransak = 112 | ransak = 80 then do
  2324.    if money >= 50000 then money = money - 20000
  2325.    if money < 50000 then money = money - money
  2326.    if hitpoints >= 80 then hitpoints = hitpoints - 30
  2327.    if hitpoints < 80 then hitpoints = hitpoints - hitpoints
  2328.    call message doorname,linenumber, RED'YOUR PLANE CRASH LANDED!!!',1
  2329.    call message doorname,linenumber, RED'YOU LOSE 80 HITPOINTS!',1
  2330.    call message doorname,linenumber, RED'YOU LOSE 50000 DOLLARS TO GET A TRIP BACK & HOSPITAL FEES!',1
  2331.    call message doorname,linenumber, ' ',1
  2332.    call hotkey doorname,linenumber, CYA'Sue the pilot (Y/n)? '
  2333.    ans = upper(result)
  2334.    if ans = 'N' then do
  2335.       call message doorname,linenumber, MAG'Ok.. not sueing him.',1
  2336.       address command "wait 1"
  2337.       signal MENU
  2338.      end
  2339.    signal SUEHIM
  2340.   end
  2341. return
  2342.  
  2343. SUEHIM:
  2344. call checkca
  2345. rannum = RANDOM(1,2,Time('s'))
  2346. if rannum = 1 then verdict = 'GUILTY'
  2347. if rannum = 2 then verdict = 'NOT GUILTY'
  2348. call message doorname,linenumber, CLS,1
  2349. call message doorname,linenumber, ' ',1
  2350. call message doorname,linenumber, RED'A long a tedious trial goes on...',1
  2351. call message doorname,linenumber, RED'and now heres the charge...',1
  2352. call message doorname,linenumber, ' 'RESET,1
  2353. call message doorname,linenumber, CYA'We the jury, find in the case of',1
  2354. call message doorname,linenumber, CYA'the Pilot: 'RED''verdict''CYA'!',1
  2355. call message doorname,linenumber, ' ',1
  2356. if rannum = 1 then do
  2357.    call message doorname,linenumber, MAG'Money in the amount of $150000',1
  2358.    call message doorname,linenumber, MAG'to the plaintiff 'handle'!',1
  2359.    money = money + 150000
  2360.    call writeln(news,handle' won $150000 in court!')
  2361.    address command "wait 1"
  2362.   end
  2363. if rannum = 2 then do
  2364.    call message doorname,linenumber, MAG'It was the planes falt, not',1
  2365.    call message doorname,linenumber, MAG'the Pilots falt.  Nothing',1
  2366.    call message doorname,linenumber, MAG'gained, nothing lost.',1
  2367.    call message doorname,linenumber, ' ',1
  2368.    randy = RANDOM(1,6,Time('s'))
  2369.    randy = randy * 1000
  2370.    call message doorname,linenumber, CYA'Pay 'WHI'$'randy' 'CYA'in lawyer fees.',1
  2371.    if money < randy then money = 0
  2372.    if money >= randy then money = money - randy
  2373.    address command "wait 1"
  2374.   end
  2375. call message doorname,linenumber, ' ',1
  2376. call message doorname,linenumber, BLU'Justice is served.'RESET,1
  2377. call message doorname,linenumber, ' ',1
  2378. call hotkey doorname,linenumber, 'Press 'RED'RETURN'WHI' when finished: '
  2379. call checkca
  2380. signal MENU
  2381.  
  2382. LALA:
  2383. call checkca
  2384. call message doorname,linenumber, ' ',1
  2385. Call message doorname,linenumber, CYA'E'YEL'n'GRE't'BLU'e'RED'r 'WHI't'MAG'h'YEL'e'RED' m'CYA'a'WHI'g'MAG'i'GRE'c'BLU' w'YEL'o'WHI'r'RED'd'BLU':',0
  2386. call prompt doorname,linenumber,'',25
  2387. pass = result
  2388. if pass = magicword then signal P2
  2389. signal MENU
  2390.  
  2391. REST:
  2392. call checkca
  2393. lost = maxpoints - hitpoints
  2394. fiz = RANDOM(1,750,Time('s'))
  2395. if rank = ran1 then pernight = 500
  2396. if rank = ran2 then pernight = 700
  2397. if rank = ran3 then pernight = 900
  2398. if rank = ran4 then pernight = 1100
  2399. if rank = ran5 then pernight = 1400
  2400. if rank = ran6 then pernight = 2000
  2401. if rank = ran7 then pernight = 2500
  2402. if rank = ran8 then pernight = 2800
  2403. if rank = ran9 then pernight = 3000
  2404. if rank = ran10 then pernight = 3300
  2405. if rank = ran11 then pernight = 3500
  2406. if rank = ran12 then pernight = 3800
  2407. room = pernight + fiz
  2408. call message doorname,linenumber, CLS,1
  2409. call message doorname,linenumber, ' 'RESET,1
  2410. call message doorname,linenumber, '      _____/_________________________________________________\_____',1
  2411. call message doorname,linenumber, '     |_____________________'MAG'-= LE GRAND HOTEL =-'WHI'____________________|',1
  2412. call message doorname,linenumber, '        |\_________/     ________________________    \_________/|',1
  2413. call message doorname,linenumber, '        |  \_____/       \______________________/      \_____/  |',1
  2414. call message doorname,linenumber, '        |   || ||         |\__________________/|        || ||   |',1
  2415. call message doorname,linenumber, '        |   || ||         | 'BLU'| |     ||     | | 'WHI'|        || ||   |',1
  2416. call message doorname,linenumber, '        |   || ||         | 'BLU'| |'CYA' \'BLU'   ||     | | 'WHI'|        || ||   |',1
  2417. call message doorname,linenumber, '        |   || ||         | 'BLU'| |'CYA' \  'YEL'['BLU'||'YEL']'BLU'    | | 'WHI'|        || ||   |'RESET,1
  2418. call message doorname,linenumber, '        |   || ||         | 'BLU'| |     || 'CYA'\'BLU'   | | 'WHI'|        || ||   |'RESET,1
  2419. call message doorname,linenumber, '      __|___||_||_________|/'GRE'#'BLU'\|_____||_____|/'GRE'#'WHI'\|________||_||___|__'RESET,1
  2420. call message doorname,linenumber, GRE'      #####'WHI'/_____\'GRE'###########'BLU'/'RED'/            \'BLU'\'GRE'##########'WHI'/_____\'GRE'#####'RESET,1
  2421. call message doorname,linenumber, GRE'      #######################'RED'/              \'GRE'######################'RESET,1
  2422. call message doorname,linenumber, GRE'      ######################'RED'/                \'GRE'#####################'RESET,1
  2423. call message doorname,linenumber, GRE'      #####################'RED'/                  \'GRE'####################'RESET,1
  2424. call message doorname,linenumber, GRE'      ####################'RED'/____________________\'GRE'###################'RESET,1
  2425. call message doorname,linenumber, ' ',1
  2426. call message doorname,linenumber, MAG'                     Right now it costs $'WHI''room''MAG' per night.',1
  2427. call message doorname,linenumber, CYA'             30 hitpoints healed a night. - You need to heal 'WHI''lost''CYA'.',1
  2428. call message doorname,linenumber, ' ',1
  2429. Call message doorname,linenumber, CYA' Stay how many nights? 'BLU'['YEL'Q'BLU']'CYA' Quits'BLU':',0
  2430. call prompt doorname,linenumber,'',8
  2431. stay = upper(result)
  2432. if stay = 'Q' then signal MENU
  2433. if stay = '' | stay = ' ' | stay = '  ' | stay = '   ' | stay = '    ' | stay = '     ' then signal MENU
  2434. if stay = 0 then do
  2435.    call message doorname,linenumber, CLS,1
  2436.    call message doorname,linenumber, ' ',1
  2437.    call message doorname,linenumber, CYA'What, are you just going to mope around in the lounge all day?',1
  2438.    call message doorname,linenumber, ' 'RESET,1
  2439.    address command "wait 1"
  2440.    signal MENU
  2441.   end
  2442. if stay > 9999999999999999999999999999999999999999999999999999999999999999999999999999999999 then signal YOT
  2443. if stay < 0 then signal YOT
  2444. dogz = compress(stay,'ABCDEFGHIJKLMNOPQRSTUVWXYZ.,{}[];:?/\=+-_)(*&^%$#@!~`<>')
  2445. payme = dogz * room
  2446. if payme > money then do
  2447.    call message doorname,linenumber, CLS,1
  2448.    call message doorname,linenumber, ' ',1
  2449.    call message doorname,linenumber, RED center('You dont have enough money to stay here that long!',78),1
  2450.    call message doorname,linenumber, ' 'RESET,1
  2451.    address command "wait 1"
  2452.   end
  2453. if money = payme then do
  2454.    call message doorname,linenumber, ' ',1
  2455.    call message doorname,linenumber, MAG'You are going to be 'RED'BROKE'MAG' if you stay here that long!'RESET,1
  2456.    call message doorname,linenumber, ' ',1
  2457.    call message doorname,linenumber, CYA'Stay here anyway ('GRE'Y'CYA'/'RED'n'CYA')? ',0
  2458.    call hotkey doorname,linenumber,''
  2459.    stayany = upper(result)
  2460.    if stayany = 'N' then do
  2461.       call message doorname,linenumber, BLU'Ok.. leaving Hotel...'RESET,1
  2462.       address command "wait 1"
  2463.       signal MENU
  2464.      end
  2465.   end
  2466. if payme <= money then signal RESTHERE
  2467. signal MENU
  2468.  
  2469. YOT:
  2470. call checkca
  2471. call message doorname,linenumber, CLS,1
  2472. call message doorname,linenumber, ' ',1
  2473. call message doorname,linenumber, RED center('You must enter a NUMBER! ',78),1
  2474. call message doorname,linenumber, RESET' ',1
  2475. address command "wait 1"
  2476. signal REST
  2477.  
  2478. RESTHERE:
  2479. call checkca
  2480. money = money - payme
  2481. runny = RANDOM(1,200,Time('s'))
  2482. if runny >= money then runny = 0
  2483. call message doorname,linenumber, CLS,1
  2484. call message doorname,linenumber, ' ',1
  2485. call message doorname,linenumber, YEL center('Enjoy your stay!',78),1
  2486. call message doorname,linenumber, ' ',1
  2487. call message doorname,linenumber, CYA'Sleeping.',1
  2488.   do i = 1 to 20
  2489.    call message doorname,linenumber, CYA'.',1
  2490.    address command "wait 1"
  2491.    i=i+1
  2492.   end
  2493. call message doorname,linenumber, ' ',1
  2494. hitpoints=hitpoints+(dogz*30)
  2495. if hitpoints > maxpoints then hitpoints = maxpoints
  2496. call message doorname,linenumber, CYA'Ahhh.. you feel refreshed!',1
  2497. call message doorname,linenumber, CYA'You order $'WHI||runny||CYA' in room service.',1
  2498. if money = 0 then call message doorname,linenumber, CYA'By the way.. 'RED'You are Broke!'RESET,1
  2499. call message doorname,linenumber, ' ',1
  2500. call hotkey doorname,linenumber, ' Press 'RED'RETURN'WHI' when finished: 'RESET
  2501. call checkca
  2502. signal MENU
  2503.  
  2504. YOURSTATS:
  2505. call checkca
  2506. turnsleft = turnsleft + 1
  2507. call message doorname,linenumber, CLS,1
  2508. call message doorname,linenumber, ' ',1
  2509. call message doorname,linenumber, '                'BLUCYA'   Player Statistics For The Yuppie 'handle'   'RESET,1
  2510. call message doorname,linenumber, BLU center(' ----------------------------------------------------------------------- ',78),1
  2511. call POINTCK
  2512. call message doorname,linenumber, ' ',1
  2513. call message doorname,linenumber, MAG'                         Points: 'WHI''points,1
  2514. call message doorname,linenumber, MAG'                           Rank: 'WHI''rank,1
  2515. call message doorname,linenumber, MAG'                      Hitpoints: 'WHI''hitpoints,1
  2516. call message doorname,linenumber, MAG'                     Turns Left: 'WHI''turnsleft,1
  2517. call message doorname,linenumber, MAG'                         Weapon: 'WHI''weapon,1
  2518. call message doorname,linenumber, MAG'                        Vehicle: 'WHI''armor,1
  2519. call message doorname,linenumber, MAG'                          Money: 'WHI'$'money,1
  2520. call message doorname,linenumber, MAG'                     Bank Money: 'WHI'$'bmoney,1
  2521. call message doorname,linenumber, MAG'                 Lifetime Kills: 'WHI''kills,1
  2522. call message doorname,linenumber, ' 'RESET,1
  2523. call message doorname,linenumber, ' ',1
  2524. call hotkey doorname,linenumber, ' Hit 'RED'RETURN'WHI' when finished: 'RESET
  2525. call checkca
  2526. signal MENU
  2527.  
  2528. VEGAS:
  2529. call checkca
  2530. currentmem=storage()
  2531.   if currentmem<lowmem then do
  2532.     call message doorname,linenumber, CLS,1
  2533.     call message doorname,linenumber, ' ',1
  2534.     call message doorname,linenumber, RED CENTER('Sorry!  Out of memory!  Saving and exiting...',78),1
  2535.     address command "wait 1"
  2536.     signal BYE
  2537.   end
  2538. call EVENER
  2539. if turnsleft <= 0 then do
  2540.    call message doorname,linenumber, CLS,1
  2541.    call message doorname,linenumber, ' ',1
  2542.    call message doorname,linenumber, center('        'BLUCYA'   You must like this game!   'RESET'',78),1
  2543.    call message doorname,linenumber, ' 'RESET,1
  2544.    call message doorname,linenumber, RED center('But anyway, you have played all your 25 turns out.',78),1
  2545.    call message doorname,linenumber, RED center('Try calling back tomarrow and playing again!',78),1
  2546.    call message doorname,linenumber, ' ',1
  2547.    call hotkey doorname,linenumber, 'Press 'RED'RETURN'WHI' when finished: '
  2548.    signal OUTTAHERE
  2549.   end
  2550. call message doorname,linenumber, CLS,1
  2551. call message doorname,linenumber, '                 'WHI'*'RED'                ____'RESET,1
  2552. call message doorname,linenumber, RED' __ 'WHI' *'RED'      ____  ___     /\  'WHI' *'RED' / __/'RESET,1
  2553. call message doorname,linenumber, RED' \ \    __ /___/ /___\   //\\   / /'RESET,1
  2554. call message doorname,linenumber, RED'  \ \  / ///_   //  'WHI'*'RED'\\ / \/ \ / /'RESET,1
  2555. call message doorname,linenumber, RED'   \ \/ //__/   \\___/// ____ \\ \___ 'WHI'*'RESET,1
  2556. call message doorname,linenumber, RED'    \  / \\_____ \__ // /  __\ \\_  /'RESET,1
  2557. call message doorname,linenumber, WHI'  * 'RED' \/   \____/___// \/   \__\/___/'RESET,1
  2558. call message doorname,linenumber, WHI'        *  'RED'/_______/'BLU' __________________________'RESET,1
  2559. call message doorname,linenumber, BLU'                    /------'ITAL''CYA'What To Play'RESET''BLU'-------/ ',1
  2560. call message doorname,linenumber, BLU'                   /                         / ',1
  2561. call message doorname,linenumber, BLU'                  /     'ITAL' ['YEL'S'BLU'] 'CYA'Slots'RESET''BLU'          / ',1
  2562. call message doorname,linenumber, BLU'                 /     'ITAL' ['YEL'L'BLU'] 'CYA'Lotto'RESET''BLU'          / ',1
  2563. call message doorname,linenumber, BLU'                /     'ITAL' ['YEL'C'BLU'] 'CYA'Craps'RESET''BLU'          / ',1
  2564. call message doorname,linenumber, BLU'               /     'ITAL' ['YEL'F'BLU'] 'CYA'Fifty-Fifty'RESET''BLU'    / ',1
  2565. call message doorname,linenumber, BLU'              /     'ITAL' ['YEL'Q'BLU'] 'CYA'Leave Vegas'RESET''BLU'    / ',1
  2566. call message doorname,linenumber, BLU'             /_________________________/ ',1
  2567. call message doorname,linenumber, ' 'RESET,1
  2568. call message doorname,linenumber, CYA'What game do you want to play?'BLU'> ',0
  2569. call hotkey doorname,linenumber,''
  2570. Choice = upper(result)
  2571. if Choice = 'Q' then do
  2572. turnsleft = turnsleft + 1
  2573. maincount = 0
  2574. signal MENU
  2575. end
  2576. if Choice = 'S' then do
  2577. turnsleft = turnsleft - 1
  2578. maincount = 0
  2579. call SLITS
  2580. end
  2581. if Choice = 'L' then do
  2582. turnsleft = turnsleft - 1
  2583. maincount = 0
  2584. signal LOTTO
  2585. end
  2586. if Choice = 'C' then do
  2587. turnsleft = turnsleft - 1
  2588. maincount = 0
  2589. call CRAPS
  2590. end
  2591. if Choice = 'F' then do
  2592. turnsleft = turnsleft - 1
  2593. maincount = 0
  2594. signal FIFTY
  2595. end
  2596. signal VEGAS
  2597.  
  2598. FIFTY:
  2599. call checkca
  2600. if money <= 0 then do
  2601.    turnsleft = turnsleft + 1
  2602.    call message doorname,linenumber, CLS,1
  2603.    call message doorname,linenumber, ' ',1
  2604.    call message doorname,linenumber, RED center('YOU NEED MONEY TO PLAY!',78),1
  2605.    call message doorname,linenumber, ' ',1
  2606.    address command "wait 1"
  2607.    maincount = 0
  2608.    signal VEGAS
  2609.   end
  2610. t = b
  2611. call message doorname,linenumber, CLS,1
  2612. call message doorname,linenumber, '                        'BLUCYA'   Playing Fifty-Fifty   'RESET,1
  2613. call message doorname,linenumber, ' ',1
  2614. call message doorname,linenumber, CYA center('You have a %50 chance of winning double your bet.',78),1
  2615. call message doorname,linenumber, ' ',1
  2616. Call message doorname,linenumber, BLU' You have $'CYA''money''BLU', your bet [Q] to quit (Max $'CYA'5000'BLU')? >',0
  2617. call prompt doorname,linenumber,'',5
  2618. Betty = upper(result)
  2619. if Betty = 'Q' then do
  2620. maincount = 0
  2621. signal VEGAS
  2622. end
  2623. if Betty > money then do
  2624.    call message doorname,linenumber, ' ',1
  2625.    call message doorname,linenumber, RED center('YOU DONT HAVE ENOUGH MONEY TO BET THAT MUCH!',78),1
  2626.    call message doorname,linenumber, ' ',1
  2627.    address command "wait 1"
  2628.    signal FIFTY
  2629.   end
  2630. if Betty > 5000 | Betty < 1 then do
  2631.    call message doorname,linenumber, CLS,1
  2632.    call message doorname,linenumber, ' ',1
  2633.    call message doorname,linenumber, RED center('You must bet between 1 and 5000!',78),1
  2634.    call message doorname,linenumber, ' ',1
  2635.    address command "wait 1"
  2636.    signal FIFTY
  2637.   end
  2638. if Betty <= 5000 & Betty >= 1 then signal LATER
  2639. else call YO
  2640. signal FIFTY
  2641.  
  2642. LATER:
  2643. call checkca
  2644. call message doorname,linenumber, ' ',1
  2645. rnm = RANDOM(1,4,Time('s'))
  2646. if rnm = 1 | rnm = 3 then do
  2647.    money = money - Betty
  2648.    call message doorname,linenumber, YEL' You lost this time, bud!',1
  2649.    call message doorname,linenumber, MAG' You lost $'WHI''Betty''MAG'.'RESET,1
  2650.    call message doorname,linenumber, ' ',1
  2651.    address command "wait 1"
  2652.    signal PLAYGEN
  2653.   end
  2654. if rnm = 2 | rnm = 4 then do
  2655.    call message doorname,linenumber, YEL' You Won!!!',1
  2656.    call message doorname,linenumber, MAG' You won $'WHI''Betty*2''MAG'!'RESET,1
  2657.    money=money+(Betty*2)
  2658.    call message doorname,linenumber, ' ',1
  2659.    address command "wait 1"
  2660.    signal PLAYGEN
  2661.   end
  2662. signal PLAYGEN
  2663.  
  2664. LOTTO:
  2665. call checkca
  2666. if money <= 0 then do
  2667.    turnsleft = turnsleft + 1
  2668.    call message doorname,linenumber, CLS,1
  2669.    call message doorname,linenumber, ' ',1
  2670.    call message doorname,linenumber, RED center('YOU NEED MONEY TO PLAY THIS GAME!',78),1
  2671.    call message doorname,linenumber, ' ',1
  2672.    address command "wait 1"
  2673.   maincount = 0
  2674.   signal VEGAS
  2675.   end
  2676. t = a
  2677. call message doorname,linenumber, CLS,1
  2678. call message doorname,linenumber, '                         'BLUCYA'   Playing the Lotto   'RESET,1
  2679. call message doorname,linenumber, ' ',1
  2680. flag = f
  2681. call message doorname,linenumber, BLU' You have $'CYA''money''BLU'.  Maximum bet is $'CYA'5000'BLU'.',1
  2682. Call message doorname,linenumber, CYA' How much money do you want to bet?:',0
  2683. call prompt doorname,linenumber,'',8
  2684. Wager = upper(result)
  2685. if Wager = 'Q' then do
  2686. maincount = 0
  2687. signal VEGAS
  2688. end
  2689. if Wager > money then do
  2690.    call message doorname,linenumber, ' ',1
  2691.    call message doorname,linenumber, RED center('YOU DONT HAVE ENOUGH MONEY TO BET THAT MUCH!',78),1
  2692.    call message doorname,linenumber, ' ',1
  2693.    address command "wait 1"
  2694.    signal LOTTO
  2695.   end
  2696. if Wager > 5000 then do
  2697.    call message doorname,linenumber, ' ',1
  2698.    call message doorname,linenumber, RED center('MAXIMUM BET IS $5000!',78),1
  2699.    call message doorname,linenumber, ' ',1
  2700.    address command "wait 1"
  2701.    signal LOTTO
  2702.   end
  2703. if Wager >= 1 & Wager <= 5000 then do
  2704. maincount = 0
  2705. signal WEZ
  2706. end
  2707. else call YO
  2708. signal LOTTO
  2709.  
  2710. WEZ:
  2711. call checkca
  2712. call message doorname,linenumber, ' ',1
  2713. call message doorname,linenumber, CYA' Bet 'YEL''Wager''CYA' ('GRE'Y'CYA'/'RED'n'CYA')?: ' ,0
  2714. call hotkey doorname,linenumber,''
  2715. okeydokey = upper(result)
  2716. if okeydokey = 'N' then signal LOTTO
  2717. signal GOON
  2718.  
  2719. GOON:
  2720. call checkca
  2721. call message doorname,linenumber, CLS,1
  2722. call message doorname,linenumber, ' ',1
  2723. call message doorname,linenumber, CYA center('Enter a number between 1 and 50, if that number comes up, you win',78),1
  2724. call message doorname,linenumber, CYA center('five times that amount, if you lose, you get one last chance to',78),1
  2725. call message doorname,linenumber, CYA center('enter a number between 1 and 50, if you win, you will get triple',78),1
  2726. call message doorname,linenumber, CYA center('your bet.  If you win any of the two, you get a chance to go on',78),1
  2727. call message doorname,linenumber, CYA center('to the finals where you get a chance to win 10 times your bet, but',78),1
  2728. call message doorname,linenumber, CYA center('your chances are one in 60.',78),1
  2729. call message doorname,linenumber, ' ',1
  2730. if flag = lasttime then do
  2731.    call message doorname,linenumber, GRE center('This is your last chance to win your money back,',78),1
  2732.    call message doorname,linenumber, GRE center('if you dont win, you just lose what you originally',78),1
  2733.    call message doorname,linenumber, GRE center('betted, you wont lose more than you betted.',78),1
  2734.    call message doorname,linenumber, ' ',1
  2735.   end
  2736. Call message doorname,linenumber, MAG'   Enter a number between 1 & 50:',0
  2737. call prompt doorname,linenumber,'',2
  2738. numb = upper(result)
  2739. if numb <= 50 & numb >= 1 then signal WEENIE
  2740. else call YO
  2741. signal GOON
  2742.  
  2743. WEENIE:
  2744. call checkca
  2745. call message doorname,linenumber, CLS,1
  2746. call message doorname,linenumber, ' ',1
  2747. call message doorname,linenumber, ' ',1
  2748. rannim = RANDOM(1,51,Time('s'))
  2749. if rannim = numb then do
  2750. call message doorname,linenumber, MAG ' And, the number is... 'RESET,0
  2751. address command "wait 1"
  2752.    call message doorname,linenumber, rannim''MAG'!'RESET,1
  2753.    call message doorname,linenumber, YEL center('You Won!!!',78),1
  2754.    call message doorname,linenumber, GRE center('       You won $'RESET''Wager*5''GRE'!!!',78),1
  2755.    call message doorname,linenumber, MAG center('Good Job!!',78),1
  2756.    if flag = f then money=money+(Wager*5)
  2757.    if flag = lasttime then money=money+(Wager*3)
  2758.    signal FINALDRAW
  2759.   end
  2760. if rannim ~= numb then do
  2761.    call message doorname,linenumber, MAG ' And, the number is... 'RESET,0
  2762.    address command "wait 1"
  2763.    call message doorname,linenumber, rannim''MAG'!'RESET,1
  2764.    if flag = f then money = money - Wager
  2765.    call message doorname,linenumber, YEL center('Oh, to bad, you lose!',78),1
  2766.    if flag = f then call message doorname,linenumber, GRE center('        You lost $'WHI''Wager''GRE'.',78),1
  2767.    if flag = lasttime then call message doorname,linenumber, GRE center('You didnt lose anything this time.',78),1
  2768.    call message doorname,linenumber, MAG center('Oh well, better luck next time!',78),1
  2769.    if flag = lasttime then do
  2770.       call message doorname,linenumber, RED center('You didnt win your money back!',78),1
  2771.       address command "wait 1"
  2772.       signal PLAYGEN
  2773.   end
  2774. signal LASTCHANCE
  2775.  
  2776. FINALDRAW:
  2777. call checkca
  2778. address command "wait 1"
  2779. randu = RANDOM(1,60,Time('s'))
  2780. call message doorname,linenumber, CLS,1
  2781. call message doorname,linenumber, RESET'    *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *',1
  2782. call message doorname,linenumber, ' ',1
  2783. call message doorname,linenumber, '    *  'RED' You have made made it this far, now lets see if you'WHI'  *',1
  2784. call message doorname,linenumber, RED'       can win the REALLY BIG bucks!',1
  2785. call message doorname,linenumber, WHI'    *                                                        *',1
  2786. call message doorname,linenumber, '    *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *'RESET,1
  2787. call message doorname,linenumber, ' ',1
  2788. address command "wait 1"
  2789. call message doorname,linenumber, BLU center('Using your winning number for the draw.',78),1
  2790. call message doorname,linenumber, ' ',1
  2791. call message doorname,linenumber, MAG'And... The winning number is... 'RESET ; address command "wait 1" ; call message doorname,linenumber, randu''MAG'!'RESET,1
  2792. call message doorname,linenumber, ' ',1
  2793. if randu = numb then do
  2794.    call message doorname,linenumber, YEL center('YOU WIN!!!',78),1
  2795.    call message doorname,linenumber, GRE center('       You won $'WHI''Wager*10''GRE'!!',78),1
  2796.    call message doorname,linenumber, RED center('GOOD JOB!',78),1
  2797.    money=money+(Wager*10)
  2798.    call message doorname,linenumber, ' ',1
  2799.    call writeln(news,handle' wins 'wager*10' in the lotto at vegas!')
  2800.    call message doorname,linenumber, CYA'The bright-red faced casino manager quickly ushers you out the door.',1
  2801.    call message doorname,linenumber, ' ',1
  2802.    address command "wait 1"
  2803.    signal PLAYGEN
  2804.   end
  2805. if randu ~= numb then do
  2806.    call message doorname,linenumber, YEL center('Awww.. too bad, you lost.',78),1
  2807.    call message doorname,linenumber, GRE center('But at least you didnt lose anything!',78),1
  2808.    call message doorname,linenumber, RED center('Better luck next time!',78),1
  2809.    call message doorname,linenumber, ' ',1
  2810.    call message doorname,linenumber, CYA'The relieved casino manager asks you to come back anytime.',1
  2811.    call message doorname,linenumber, ' ',1
  2812.    address command "wait 1"
  2813.    signal PLAYGEN
  2814.   end
  2815. signal PLAYGEN
  2816.  
  2817. PLAYGEN:
  2818. call checkca
  2819. call message doorname,linenumber, CLS,1
  2820. call message doorname,linenumber, ' ',1
  2821. call message doorname,linenumber, CYA' Would you like to play again ('GRE'y'CYA'/'RED'N'CYA')? ',0
  2822. call hotkey doorname,linenumber,''
  2823. comegen = upper(result)
  2824. if comegen = 'N' then signal VEGAS
  2825. if comegen = 'Y' then do
  2826.    if t = a then signal LOTTO
  2827.    if t = b then signal FIFTY
  2828. end
  2829. signal VEGAS
  2830.  
  2831. LASTCHANCE:
  2832. call checkca
  2833. address command "wait 1"
  2834. flag = lasttime
  2835. signal GOON
  2836.  
  2837. YO:
  2838. call checkca
  2839.    call message doorname,linenumber, CLS,1
  2840.    call message doorname,linenumber, ' ',1
  2841.    call message doorname,linenumber, RED center('YOUR ANSWER MUST BE A NUMBER BETWEEN 1 AND 50!',78),1
  2842.    call message doorname,linenumber, ' ',1
  2843.    address command "wait 1"
  2844.    return
  2845.  
  2846. BUYORSELLW:
  2847. call checkca
  2848. call message doorname,linenumber, CLS,1
  2849. call message doorname,linenumber, ' ',1
  2850. if weapon = wep1 then call message doorname,linenumber, CYA' Your current weapon is a 'wep1'.'RESET,1
  2851. if weapon = wep2 then call message doorname,linenumber, CYA' Your current weapon is a 'wep2'.'RESET,1
  2852. if weapon = wep3 then call message doorname,linenumber, CYA' Your current weapon is a 'wep3'.'RESET,1
  2853. if weapon = wep4 then call message doorname,linenumber, CYA' Your current weapon is a 'wep4'.'RESET,1
  2854. if weapon = wep5 then call message doorname,linenumber, CYA' Your current weapon is a 'wep5'.'RESET,1
  2855. if weapon = wep6 then call message doorname,linenumber, CYA' Your current weapons are 'wep6'.'RESET,1
  2856. if weapon = wep7 then call message doorname,linenumber, CYA' Your current weapon is a 'wep7'.'RESET,1
  2857. if weapon = wep8 then call message doorname,linenumber, CYA' Your current weapon is a 'wep8'.'RESET,1
  2858. if weapon = wep9 then call message doorname,linenumber, CYA' Your current weapon is a 'wep9'.'RESET,1
  2859. if weapon = wep10 then call message doorname,linenumber, CYA ' Your current weapon is a 'wep10'.'RESET,1
  2860. if weapon = wep11 then call message doorname,linenumber, CYA ' Your current weapon is a 'wep11'.'RESET,1
  2861. if weapon = wep12 then call message doorname,linenumber, CYA ' Your current weapon is a 'wep12'.'RESET,1
  2862. call message doorname,linenumber, ' ',1
  2863. call hotkey doorname,linenumber, GRE' Buy or Sell your weapon (B/S)? '
  2864. Choice = upper(result)
  2865. if Choice = B then signal BUYWEAPON
  2866. if Choice = S then signal SELLWEAPON
  2867. if Choice = Q then signal MENU
  2868. signal MENU
  2869.  
  2870. BUYORSELLA:
  2871. call checkca
  2872. call message doorname,linenumber, CLS,1
  2873. call message doorname,linenumber, ' ',1
  2874. if armor = arm1 then call message doorname,linenumber, CYA' Your current vehicle is a 'arm1'.'RESET,1
  2875. if armor = arm2 then call message doorname,linenumber, CYA' Your current vehicle is a 'arm2'.'RESET,1
  2876. if armor = arm3 then call message doorname,linenumber, CYA' Your current vehicle is a 'arm3'.'RESET,1
  2877. if armor = arm4 then call message doorname,linenumber, CYA' Your current vehicle is a 'arm4'.'RESET,1
  2878. if armor = arm5 then call message doorname,linenumber, CYA' Your current vehicle is a 'arm5'.'RESET,1
  2879. if armor = arm6 then call message doorname,linenumber, CYA' Your current vehicle is a 'arm6'.'RESET,1
  2880. if armor = arm7 then call message doorname,linenumber, CYA' Your current vehicle is a 'arm7'.'RESET,1
  2881. if armor = arm8 then call message doorname,linenumber, CYA' Your current vehicle is a 'arm8'.'RESET,1
  2882. if armor = arm9 then call message doorname,linenumber, CYA' Your current vehicle is a 'arm9'.'RESET,1
  2883. if armor = arm10 then call message doorname,linenumber, CYA ' Your current vehicle is a 'arm10'.'RESET,1
  2884. if armor = arm11 then call message doorname,linenumber, CYA ' Your current vehicle is a 'arm11'.'RESET,1
  2885. if armor = arm12 then call message doorname,linenumber, CYA ' Your current vehicle is a 'arm12'.'RESET,1
  2886. call message doorname,linenumber, ' ',1
  2887. call hotkey doorname,linenumber, GRE' Buy or Sell your vehicle (B/S)? '
  2888. Choice = upper(result)
  2889. if Choice = B then signal BUYARMOR
  2890. if Choice = S then signal SELLARMOR
  2891. if Choice = Q then signal MENU
  2892. signal MENU
  2893.  
  2894. BUYWEAPON:
  2895. call checkca
  2896. w = b
  2897. call message doorname,linenumber, CLS,1
  2898. call message doorname,linenumber, '                   'BluCya'  Macys Department Store Weapons  'RESET,1
  2899. call message doorname,linenumber, BLU' ----------------------------------------------------------------------',1
  2900. call message doorname,linenumber, YEL'   A.'MAG' Squirt Gun                         'RED'Rank:'MAG' 1   'GRE' Price:'MAG' $100   ',1
  2901. call message doorname,linenumber, YEL'   B.'MAG' Spitwad Launcher                   'RED'Rank:'MAG' 2   'GRE' Price:'MAG' $2000  ',1
  2902. call message doorname,linenumber, YEL'   C.'MAG' Frisbee                            'RED'Rank:'MAG' 3   'GRE' Price:'MAG' $10000  ',1
  2903. call message doorname,linenumber, YEL'   D.'MAG' Laser Tag Gun                      'RED'Rank:'MAG' 4   'GRE' Price:'MAG' $25000 ',1
  2904. call message doorname,linenumber, YEL'   E.'MAG' Paint Ball Gun                     'RED'Rank:'MAG' 5   'GRE' Price:'MAG' $40000 ',1
  2905. call message doorname,linenumber, YEL'   F.'MAG' Darts                              'RED'Rank:'MAG' 6   'GRE' Price:'MAG' $55000 ',1
  2906. call message doorname,linenumber, YEL'   G.'MAG' Baseball                           'RED'Rank:'MAG' 7   'GRE' Price:'MAG' $75000 ',1
  2907. call message doorname,linenumber, YEL'   H.'MAG' Bart Simpson Doll                  'RED'Rank:'MAG' 8   'GRE' Price:'MAG' $85000 ',1
  2908. call message doorname,linenumber, YEL'   I.'MAG' Chainsaw                           'RED'Rank:'MAG' 9   'GRE' Price:'MAG' $100000',1
  2909. call message doorname,linenumber, YEL'   J.'MAG' Teenage Mutant Ninja Turtles Doll  'RED'Rank:'MAG' 10  'GRE' Price:'MAG' $200000',1
  2910. call message doorname,linenumber, YEL'   K.'MAG' New Kids On The Block Poster       'RED'Rank:'MAG' 11  'GRE' Price:'MAG' $420000',1
  2911. call message doorname,linenumber, YEL'   L.'MAG' New Kids On The Block CD           'RED'Rank:'MAG' 12  'GRE' Price:'MAG' $750000'RESET,1
  2912. call message doorname,linenumber, ' ',1
  2913. call message doorname,linenumber, WHI'                               Press Q To Quit      ',1
  2914. call message doorname,linenumber, ' ',1
  2915. call message doorname,linenumber, CYA'You have $'WHI''money''CYA'.  What weapon do you want Sir?'BLU'> ',0
  2916. call hotkey doorname,linenumber,''
  2917. Choice = upper(result)
  2918. if Choice = 'Q' then do
  2919. maincount = 0
  2920. signal MENU
  2921. end
  2922. if Choice = 'A' then do
  2923.    if weapon = wep1 then signal ALREADYHAVE
  2924.    if money < 10 then signal NOMONEY
  2925.    money = money - 10
  2926.    weapon = wep1
  2927.    call BOT
  2928.   end
  2929. if Choice = 'B' then do
  2930.    if weapon = wep2 then signal ALREADYHAVE
  2931.    if money < 2000 then signal NOMONEY
  2932.    money = money - 2000
  2933.    weapon = wep2
  2934.    call BOT
  2935.   end
  2936. if Choice = 'C' then do
  2937.    if weapon = wep3 then signal ALREADYHAVE
  2938.    if money < 10000 then signal NOMONEY
  2939.    money = money - 10000
  2940.    weapon = wep3
  2941.    call BOT
  2942.   end
  2943. if Choice = 'D' then do
  2944.    if weapon = wep4 then signal ALREADYHAVE
  2945.    if money < 25000 then signal NOMONEY
  2946.    money = money - 25000
  2947.    weapon = wep4
  2948.    call BOT
  2949.   end
  2950. if Choice = 'E' then do
  2951.    if weapon = wep5 then signal ALREADYHAVE
  2952.    if money < 40000 then signal NOMONEY
  2953.    money = money - 40000
  2954.    weapon = wep5
  2955.    call BOT
  2956.   end
  2957. if Choice = 'F' then do
  2958.    if weapon = wep6 then signal ALREADYHAVE
  2959.    if money < 55000 then signal NOMONEY
  2960.    money = money - 55000
  2961.    weapon = wep6
  2962.    call BOT
  2963.   end
  2964. if Choice = 'G' then do
  2965.    if weapon = wep7 then signal ALREADYHAVE
  2966.    if money < 75000 then signal NOMONEY
  2967.    money = money - 75000
  2968.    weapon = wep7
  2969.    call BOT
  2970.   end
  2971. if Choice = 'H' then do
  2972.    if weapon = wep8 then signal ALREADYHAVE
  2973.    if money < 85000 then signal NOMONEY
  2974.    money = money - 85000
  2975.    weapon = wep8
  2976.    call BOT
  2977.   end
  2978. if Choice = 'I' then do
  2979.    if weapon = wep9 then signal ALREADYHAVE
  2980.    if money < 100000 then signal NOMONEY
  2981.    money = money - 100000
  2982.    weapon = wep9
  2983.    call BOT
  2984.   end
  2985. if Choice = 'J' then do
  2986.    if weapon = wep10 then signal ALREADYHAVE
  2987.    if money < 200000 then signal NOMONEY
  2988.    money = money - 200000
  2989.    weapon = wep10
  2990.    call BOT
  2991.   end
  2992. if Choice = 'K' then do
  2993.    if weapon = wep11 then signal ALREADYHAVE
  2994.    if money < 420000 then signal NOMONEY
  2995.    money = money - 420000
  2996.    weapon = wep11
  2997.    call BOT
  2998.   end
  2999. if Choice = 'L' then do
  3000.    if weapon = wep12 then signal ALREADYHAVE
  3001.    if money < 750000 then signal NOMONEY
  3002.    money = money - 750000
  3003.    weapon = wep12
  3004.    call BOT
  3005.   end
  3006. signal BUYWEAPON
  3007.  
  3008. BUYARMOR:
  3009. call checkca
  3010. w = a
  3011. call message doorname,linenumber, CLS,1
  3012. call message doorname,linenumber, '                  'BluCya'  Macys Department Store Vehicles  'RESET,1
  3013. call message doorname,linenumber, BLU' ----------------------------------------------------------------------',1
  3014. call message doorname,linenumber, YEL'   A.'MAG' Barbie Ferrari                     'RED'Rank:'MAG' 1   'GRE' Price:'MAG' $100   ',1
  3015. call message doorname,linenumber, YEL'   B.'MAG' Roller Skates                      'RED'Rank:'MAG' 2   'GRE' Price:'MAG' $2000  ',1
  3016. call message doorname,linenumber, YEL'   C.'MAG' Vision Skateboard                  'RED'Rank:'MAG' 3   'GRE' Price:'MAG' $10000  ',1
  3017. call message doorname,linenumber, YEL'   D.'MAG' Go-Cart                            'RED'Rank:'MAG' 4   'GRE' Price:'MAG' $25000 ',1
  3018. call message doorname,linenumber, YEL'   E.'MAG' 10-Speed Bike                      'RED'Rank:'MAG' 5   'GRE' Price:'MAG' $40000 ',1
  3019. call message doorname,linenumber, YEL'   F.'MAG' Suzuki Motorbike                   'RED'Rank:'MAG' 6   'GRE' Price:'MAG' $55000 ',1
  3020. call message doorname,linenumber, YEL'   G.'MAG' BMW Motorcycle                     'RED'Rank:'MAG' 7   'GRE' Price:'MAG' $75000 ',1
  3021. call message doorname,linenumber, YEL'   H.'MAG' Yugo                               'RED'Rank:'MAG' 8   'GRE' Price:'MAG' $85000 ',1
  3022. call message doorname,linenumber, YEL'   I.'MAG' Volkswagon                         'RED'Rank:'MAG' 9   'GRE' Price:'MAG' $100000',1
  3023. call message doorname,linenumber, YEL'   J.'MAG' Ferrari F40                        'RED'Rank:'MAG' 10  'GRE' Price:'MAG' $200000',1
  3024. call message doorname,linenumber, YEL'   K.'MAG' Corvette Mako Shark                'RED'Rank:'MAG' 11  'GRE' Price:'MAG' $420000',1
  3025. call message doorname,linenumber, YEL'   L.'MAG' Stealth Bomber                     'RED'Rank:'MAG' 12  'GRE' Price:'MAG' $750000'RESET,1
  3026. call message doorname,linenumber, ' ',1
  3027. call message doorname,linenumber, WHI'                               Press Q To Quit      ',1
  3028. call message doorname,linenumber, ' ',1
  3029. call message doorname,linenumber, CYA'You have $'WHI''money''CYA'.  What vehicle do you want Sir?'BLU'> ',0
  3030. call hotkey doorname,linenumber,''
  3031. Choice = upper(result)
  3032. if Choice = 'Q' then do
  3033. maincount = 0
  3034. signal MENU
  3035. end
  3036. if Choice = 'A' then do
  3037.    if armor = arm1 then signal ALREADYHAVEA
  3038.    if money < 10 then signal NOMONEYA
  3039.    money = money - 10
  3040.    armor = arm1
  3041.    call BOT
  3042.   end
  3043. if Choice = 'B' then do
  3044.    if armor = arm2 then signal ALREADYHAVEA
  3045.    if money < 2000 then signal NOMONEYA
  3046.    money = money - 2000
  3047.    armor = arm2
  3048.    call BOT
  3049.   end
  3050. if Choice = 'C' then do
  3051.    if armor = arm3 then signal ALREADYHAVEA
  3052.    if money < 10000 then signal NOMONEYA
  3053.    money = money - 10000
  3054.    armor = arm3
  3055.    call BOT
  3056.   end
  3057. if Choice = 'D' then do
  3058.    if armor = arm4 then signal ALREADYHAVEA
  3059.    if money < 25000 then signal NOMONEYA
  3060.    money = money - 25000
  3061.    armor = arm4
  3062.    call BOT
  3063.   end
  3064. if Choice = 'E' then do
  3065.    if armor = arm5 then signal ALREADYHAVEA
  3066.    if money < 40000 then signal NOMONEYA
  3067.    money = money - 40000
  3068.    armor = arm5
  3069.    call BOT
  3070.   end
  3071. if Choice = 'F' then do
  3072.    if armor = arm6 then signal ALREADYHAVEA
  3073.    if money < 55000 then signal NOMONEYA
  3074.    money = money - 55000
  3075.    armor = arm6
  3076.    call BOT
  3077.   end
  3078. if Choice = 'G' then do
  3079.    if armor = arm7 then signal ALREADYHAVEA
  3080.    if money < 75000 then signal NOMONEYA
  3081.    money = money - 75000
  3082.    armor = arm7
  3083.    call BOT
  3084.   end
  3085. if Choice = 'H' then do
  3086.    if armor = arm8 then signal ALREADYHAVEA
  3087.    if money < 85000 then signal NOMONEYA
  3088.    money = money - 85000
  3089.    armor = arm8
  3090.    call BOT
  3091.   end
  3092. if Choice = 'I' then do
  3093.    if armor = arm9 then signal ALREADYHAVEA
  3094.    if money < 100000 then signal NOMONEYA
  3095.    money = money - 100000
  3096.    armor = arm9
  3097.    call BOT
  3098.   end
  3099. if Choice = 'J' then do
  3100.    if armor = arm10 then signal ALREADYHAVEA
  3101.    if money < 200000 then signal NOMONEYA
  3102.    money = money - 200000
  3103.    armor = arm10
  3104.    call BOT
  3105.   end
  3106. if Choice = 'K' then do
  3107.    if armor = arm11 then signal ALREADYHAVEA
  3108.    if money < 420000 then signal NOMONEYA
  3109.    money = money - 420000
  3110.    armor = arm11
  3111.    call BOT
  3112.   end
  3113. if Choice = 'L' then do
  3114.    if armor = arm12 then signal ALREADYHAVEA
  3115.    if money < 750000 then signal NOMONEYA
  3116.    money = money - 750000
  3117.    armor = arm12
  3118.    call BOT
  3119.   end
  3120. signal BUYARMOR
  3121.  
  3122. BOT:
  3123. call checkca
  3124. call message doorname,linenumber, CLS,1
  3125. call message doorname,linenumber, ' ',1
  3126. if w = a then call message doorname,linenumber, MAG center('You have bought a 'WHI''armor''MAG'!',78),1
  3127. if w = b then call message doorname,linenumber, MAG center('You have bought a 'WHI''weapon''MAG'!',78),1
  3128. call message doorname,linenumber, ' ',1
  3129. address command "wait 1"
  3130. maincount = 0
  3131. return
  3132.  
  3133. SELLWEAPON:
  3134. call checkca
  3135. call message doorname,linenumber, ' ',1
  3136. call message doorname,linenumber, MAG' Macys will take your weapon for half price.'RESET,1
  3137. call message doorname,linenumber, ' ',1
  3138. call hotkey doorname,linenumber, YEL'Are You Sure (y/N)? '
  3139. Choice = upper(result)
  3140. call message doorname,linenumber, ' ',1
  3141. if Choice = 'Y' then do
  3142.    if weapon = wep1 then do
  3143.       call message doorname,linenumber, RED'Macys wont take that piece of junk!',1
  3144.       address command "wait 1"
  3145.      maincount = 0
  3146.      signal MENU
  3147.      end
  3148.    if weapon = wep2 then do
  3149.       call message doorname,linenumber, CYA'Macys pays you $1000!',1
  3150.       weapon = wep1
  3151.       money = money + 1000
  3152.       address command "wait 1"
  3153.       maincount = 0
  3154.       signal MENU
  3155.      end
  3156.    if weapon = wep3 then do
  3157.       call message doorname,linenumber, CYA'Macys pays you $5000!',1
  3158.       weapon = wep1
  3159.       money = money + 5000
  3160.       address command "wait 1"
  3161.       maincount = 0
  3162.       signal MENU
  3163.      end
  3164.    if weapon = wep4 then do
  3165.       call message doorname,linenumber, CYA'Macys pays you $12500!',1
  3166.       weapon = wep1
  3167.       money = money + 12500
  3168.       address command "wait 1"
  3169.       maincount = 0
  3170.       signal MENU
  3171.      end
  3172.    if weapon = wep5 then do
  3173.       call message doorname,linenumber, CYA'Macys pays you $20000!',1
  3174.       weapon = wep1
  3175.       money = money + 20000
  3176.       address command "wait 1"
  3177.       maincount = 0
  3178.       signal MENU
  3179.      end
  3180.    if weapon = wep6 then do
  3181.       call message doorname,linenumber, CYA'Macys pays you $27500!',1
  3182.       weapon = wep1
  3183.       money = money + 27500
  3184.       address command "wait 1"
  3185.       maincount = 0
  3186.       signal MENU
  3187.      end
  3188.    if weapon = wep7 then do
  3189.       call message doorname,linenumber, CYA'Macys pays you $37500!',1
  3190.       weapon = wep1
  3191.       money = money + 37500
  3192.       address command "wait 1"
  3193.       maincount = 0
  3194.       signal MENU
  3195.      end
  3196.    if weapon = wep8 then do
  3197.       call message doorname,linenumber, CYA'Macys pays you $42500!',1
  3198.       weapon = wep1
  3199.       money = money + 42500
  3200.       address command "wait 1"
  3201.       maincount = 0
  3202.       signal MENU
  3203.      end
  3204.    if weapon = wep9 then do
  3205.       call message doorname,linenumber, CYA'Macys pays you $50000!',1
  3206.       weapon = wep1
  3207.       money = money + 50000
  3208.       address command "wait 1"
  3209.       maincount = 0
  3210.       signal MENU
  3211.      end
  3212.    if weapon = wep10 then do
  3213.       call message doorname,linenumber, CYA'Macys pays you $100000!',1
  3214.       weapon = wep1
  3215.       money = money + 100000
  3216.       address command "wait 1"
  3217.       maincount = 0
  3218.       signal MENU
  3219.      end
  3220.    if weapon = wep11 then do
  3221.       call message doorname,linenumber, CYA'Macys pays you $210000!',1
  3222.       weapon = wep1
  3223.       money = money + 210000
  3224.       address command "wait 1"
  3225.       maincount = 0
  3226.       signal MENU
  3227.      end
  3228.    if weapon = wep12 then do
  3229.       call message doorname,linenumber, CYA'Macys pays you $375000!',1
  3230.       weapon = wep1
  3231.       money = money + 375000
  3232.       address command "wait 1"
  3233.       maincount = 0
  3234.       signal MENU
  3235.      end
  3236.    end
  3237. maincount = 0
  3238. signal MENU
  3239.  
  3240. SELLARMOR:
  3241. call checkca
  3242. call message doorname,linenumber, ' ',1
  3243. call message doorname,linenumber, MAG' Macys will take your vehicle for half price.'RESET,1
  3244. call message doorname,linenumber, ' ',1
  3245. call hotkey doorname,linenumber, YEL'Are You Sure (y/N)? '
  3246. Choice = upper(result)
  3247. call message doorname,linenumber, ' ',1
  3248. if Choice = 'Y' then do
  3249.    if armor = arm1 then do
  3250.       call message doorname,linenumber, RED'Macys wont take that piece of junk!',1
  3251.       address command "wait 1"
  3252.       maincount = 0
  3253.       signal MENU
  3254.      end
  3255.    if armor = arm2 then do
  3256.       call message doorname,linenumber, CYA'Macys pays you $1000!',1
  3257.       armor = arm1
  3258.       money = money + 1000
  3259.       address command "wait 1"
  3260.      maincount = 0
  3261.      signal MENU
  3262.      end
  3263.    if armor = arm3 then do
  3264.       call message doorname,linenumber, CYA'Macys pays you $5000!',1
  3265.       armor = arm1
  3266.       money = money + 5000
  3267.       address command "wait 1"
  3268.       maincount = 0
  3269.       signal MENU
  3270.      end
  3271.    if armor = arm4 then do
  3272.       call message doorname,linenumber, CYA'Macys pays you $12500!',1
  3273.       armor = arm1
  3274.       money = money + 12500
  3275.       address command "wait 1"
  3276.       maincount = 0
  3277.       signal MENU
  3278.      end
  3279.    if armor = arm5 then do
  3280.       call message doorname,linenumber, CYA'Macys pays you $20000!',1
  3281.       armor = arm1
  3282.       money = money + 20000
  3283.       address command "wait 1"
  3284.       maincount = 0
  3285.       signal MENU
  3286.      end
  3287.    if armor = arm6 then do
  3288.       call message doorname,linenumber, CYA'Macys pays you $27500!',1
  3289.       armor = arm1
  3290.       money = money + 27500
  3291.       address command "wait 1"
  3292.       maincount = 0
  3293.       signal MENU
  3294.      end
  3295.    if armor = arm7 then do
  3296.       call message doorname,linenumber, CYA'Macys pays you $37500!',1
  3297.       armor = arm1
  3298.       money = money + 37500
  3299.       address command "wait 1"
  3300.       maincount = 0
  3301.       signal MENU
  3302.      end
  3303.    if armor = arm8 then do
  3304.       call message doorname,linenumber, CYA'Macys pays you $42500!',1
  3305.       armor = arm1
  3306.       money = money + 42500
  3307.       address command "wait 1"
  3308.       maincount = 0
  3309.       signal MENU
  3310.      end
  3311.    if armor = arm9 then do
  3312.       call message doorname,linenumber, CYA'Macys pays you $50000!',1
  3313.       armor = arm1
  3314.       money = money + 50000
  3315.       address command "wait 1"
  3316.       maincount = 0
  3317.       signal MENU
  3318.      end
  3319.    if armor = arm10 then do
  3320.       call message doorname,linenumber, CYA'Macys pays you $100000!',1
  3321.       armor = arm1
  3322.       money = money + 100000
  3323.       address command "wait 1"
  3324.       maincount = 0
  3325.       signal MENU
  3326.      end
  3327.    if armor = arm11 then do
  3328.       call message doorname,linenumber, CYA'Macys pays you $210000!',1
  3329.       armor = arm1
  3330.       money = money + 210000
  3331.       address command "wait 1"
  3332.       maincount = 0
  3333.       signal MENU
  3334.      end
  3335.    if armor = arm12 then do
  3336.       call message doorname,linenumber, CYA'Macys pays you $375000!',1
  3337.       armor = arm1
  3338.       money = money + 375000
  3339.       address command "wait 1"
  3340.       maincount = 0
  3341.       signal MENU
  3342.      end
  3343.    end
  3344. maincount = 0
  3345. signal MENU
  3346.  
  3347. ALREADYHAVE:
  3348. call checkca
  3349. call message doorname,linenumber, CLS,1
  3350. call message doorname,linenumber, ' ',1
  3351. call message doorname,linenumber, RED' YOU ALREADY HAVE THAT WEAPON! 'RESET,1
  3352. address command "wait 1"
  3353. maincount = 0
  3354. signal BUYWEAPON
  3355.  
  3356. NOMONEY:
  3357. call checkca
  3358. call message doorname,linenumber, CLS,1
  3359. call message doorname,linenumber, ' ',1
  3360. call message doorname,linenumber, RED' YOU DONT HAVE ENOUGH MONEY TO BUY THAT WEAPON!',1
  3361. if money = 0 then call message doorname,linenumber, MAG' --You dont have any money!',1
  3362. address command "wait 1"
  3363. signal BUYWEAPON
  3364.  
  3365. ALREADYHAVEA:
  3366. call checkca
  3367. call message doorname,linenumber, CLS,1
  3368. call message doorname,linenumber, ' ',1
  3369. call message doorname,linenumber, RED' YOU ALREADY HAVE THAT VEHICLE! 'RESET,1
  3370. address command "wait 1"
  3371. signal BUYARMOR
  3372.  
  3373. P2:
  3374. call checkca
  3375. call message doorname,linenumber, ' ',1
  3376. signal CHEATIT
  3377. signal MENU
  3378.  
  3379. NOMONEYA:
  3380. call checkca
  3381. call message doorname,linenumber, CLS,1
  3382. call message doorname,linenumber, ' ',1
  3383. call message doorname,linenumber, RED' YOU DONT HAVE ENOUGH MONEY TO BUY THAT VEHICLE!',1
  3384. if money = 0 then call message doorname,linenumber, MAG' --You dont have any money!',1
  3385. address command "wait 1"
  3386. signal BUYARMOR
  3387.  
  3388. QUIT:
  3389. call checkca
  3390. call message doorname,linenumber, ' ',1
  3391. call message doorname,linenumber, CYA'Are you sure ('GRE'y'CYA'/'RED'N'CYA')? ',0
  3392. call hotkey doorname,linenumber,''
  3393. Choice = upper(result)
  3394. if Choice = 'Y' then do
  3395.    call message doorname,linenumber, CLS,1
  3396.    call close(news)
  3397.    call message doorname,linenumber, ' ',1
  3398.    call message doorname,linenumber, BluCya'Saving Stats...'RESET,1
  3399.    call POINTCK
  3400.    call open(Fill,'doors:Yuppie/'handle'.DAT','W')
  3401.    call writeln(Fill,turnsleft)
  3402.    call writeln(Fill,maxpoints)
  3403.    call writeln(Fill,hitpoints)
  3404.    call writeln(Fill,points)
  3405.    call writeln(Fill,money)
  3406.    call writeln(Fill,armor)
  3407.    call writeln(Fill,weapon)
  3408.    call writeln(Fill,rank)
  3409.    call writeln(Fill,canfight)
  3410.    call writeln(Fill,date)
  3411.    call writeln(Fill,deadf)
  3412.    call writeln(Fill,killer)
  3413.    call writeln(Fill,kills)
  3414.    call writeln(Fill,bmoney)
  3415.    call close(Fill)
  3416.    call message doorname,linenumber, ' ',1
  3417.    call message doorname,linenumber, BluCya'Saved.'RESET,1
  3418.    call message doorname,linenumber, ' ',1
  3419.    call message doorname,linenumber, GRE'Calculating High Scores...',1
  3420.    call CHECKHI
  3421.    call message doorname,linenumber, ' ',1
  3422.    call message doorname,linenumber, RED center('Returning to 'bbsname'...',78),1
  3423.    call message doorname,linenumber, RESET,1
  3424.    address command "wait 1"
  3425.    signal DIE
  3426. end
  3427. call message doorname,linenumber, ' ',1
  3428. call message doorname,linenumber, CYA'Returning To Main...'RESET,1
  3429. turnsleft = turnsleft + 1
  3430. address command "wait 1"
  3431. signal MENU
  3432.  
  3433. OUTTAHERE:
  3434. call checkca
  3435. call message doorname,linenumber, CLS,1
  3436. call message doorname,linenumber, ' ',1
  3437. call close(news)
  3438. call message doorname,linenumber, BluCya'Saving Stats...'RESET,1
  3439. call POINTCK
  3440. call open(Fill,'doors:Yuppie/'handle'.DAT','W')
  3441. call writeln(Fill,turnsleft)
  3442. call writeln(Fill,maxpoints)
  3443. call writeln(Fill,hitpoints)
  3444. call writeln(Fill,points)
  3445. call writeln(Fill,money)
  3446. call writeln(Fill,armor)
  3447. call writeln(Fill,weapon)
  3448. call writeln(Fill,rank)
  3449. call writeln(Fill,canfight)
  3450. call writeln(Fill,date)
  3451. call writeln(Fill,deadf)
  3452. call writeln(Fill,killer)
  3453. call writeln(Fill,kills)
  3454. call writeln(Fill,bmoney)
  3455. call close(Fill)
  3456. call message doorname,linenumber, ' ',1
  3457. call message doorname,linenumber, BluCya'Saved.'RESET,1
  3458. call message doorname,linenumber, ' ',1
  3459. call message doorname,linenumber, GRE'Calculating High Scores...',1
  3460. call CHECKHI
  3461. call message doorname,linenumber, ' ',1
  3462. call message doorname,linenumber, RED center('Returning to 'bbsname'...',78),1
  3463. call message doorname,linenumber, RESET,1
  3464. address command "wait 1"
  3465. signal DIE
  3466.  
  3467. BYE:
  3468. call checkca
  3469. call close(news)
  3470. call POINTCK
  3471. call open(File,'doors:Yuppie/'handle'.DAT','W')
  3472. call writeln(File,turnsleft)
  3473. call writeln(File,maxpoints)
  3474. call writeln(File,hitpoints)
  3475. call writeln(File,points)
  3476. call writeln(File,money)
  3477. call writeln(File,armor)
  3478. call writeln(File,weapon)
  3479. call writeln(File,rank)
  3480. call writeln(File,canfight)
  3481. call writeln(File,date)
  3482. call writeln(File,deadf)
  3483. call writeln(File,killer)
  3484. call writeln(File,kills)
  3485. call writeln(File,bmoney)
  3486. call close(File)
  3487. call CHECKHI
  3488. signal DIE
  3489.  
  3490. POINTCK:
  3491. call checkca
  3492. call EVENER
  3493. if turnsleft = '' then turnsleft = 2
  3494. if maxturns = 21 then maxturns = 26
  3495. if maxturns = '' then maxturns = 26
  3496. if canfight = '' then canfight = 4
  3497. if deadf = '' then deadf = 0
  3498. if killer = '' then killer = 'NOBODY'
  3499. if weapon = '' then weapon = wep1
  3500. if weapon = wep1 then po1 = 100
  3501. if weapon = wep2 then po1 = 200
  3502. if weapon = wep3 then po1 = 400
  3503. if weapon = wep4 then po1 = 800
  3504. if weapon = wep5 then po1 = 1600
  3505. if weapon = wep6 then po1 = 3200
  3506. if weapon = wep7 then po1 = 6400
  3507. if weapon = wep8 then po1 = 12800
  3508. if weapon = wep9 then po1 = 25600
  3509. if weapon = wep10 then po1 = 51200
  3510. if weapon = wep11 then po1 = 102400
  3511. if weapon = wep12 then po1 = 204800
  3512. if armor = '' then armor = arm1
  3513. if armor = arm1 then po2 = 100
  3514. if armor = arm2 then po2 = 200
  3515. if armor = arm3 then po2 = 400
  3516. if armor = arm4 then po2 = 800
  3517. if armor = arm5 then po2 = 1600
  3518. if armor = arm6 then po2 = 3200
  3519. if armor = arm7 then po2 = 6400
  3520. if armor = arm8 then po2 = 12800
  3521. if armor = arm9 then po2 = 25600
  3522. if armor = arm10 then po2 = 51200
  3523. if armor = arm11 then po2 = 102400
  3524. if armor = arm12 then po2 = 204800
  3525. if bmoney = '' then bmoney = 0
  3526. if money = '' then money = 0
  3527. po3 = money + bmoney
  3528. if rank = '' then rank = ran1
  3529. if rank = ran1 then po4 = 500
  3530. if rank = ran2 then po4 = 1000
  3531. if rank = ran3 then po4 = 2000
  3532. if rank = ran4 then po4 = 4000
  3533. if rank = ran5 then po4 = 6000
  3534. if rank = ran6 then po4 = 8000
  3535. if rank = ran7 then po4 = 10000
  3536. if rank = ran8 then po4 = 15000
  3537. if rank = ran9 then po4 = 30000
  3538. if rank = ran10 then po4 = 45000
  3539. if rank = ran11 then po4 = 60000
  3540. if rank = ran12 then po4 = 80000
  3541. if hitpoints = '' then hitpoints = 30
  3542. po5 = hitpoints * 10
  3543. if maxpoints = '' then maxpoints = 30
  3544. po6 = maxpoints * 10
  3545. if kills = '' then kills = 0
  3546. po7 = kills * 1000
  3547. points=po1+po2+po3+po4+po5+po6+po7
  3548. return
  3549.  
  3550. CHECKHI:
  3551. call checkca
  3552. call HICL
  3553. call open(play,'doors:Yuppie/Players','W')
  3554. do i = 1 to howm
  3555.    if PRank.i ~= -1 then do
  3556.     call writeln(play,PRank.i' 'PHandle.i)
  3557.    end
  3558. end
  3559. call close(play)
  3560. call open(dc,'doors:Yuppie/STATS','W')
  3561. call writeln(dc,date)
  3562. call writeln(dc,day)
  3563. call writeln(dc,howm)
  3564. call close(dc)
  3565. call HICK
  3566. call open(top10,'doors:Yuppie/TopOnes','W')
  3567. do i = 1 to 10
  3568. call writeln(top10,topscore.i' 'topalias.i)
  3569. end
  3570. call close(top10)
  3571. return
  3572.  
  3573. CHECKCA:
  3574. call cdetect doorname,linenumber
  3575. carrier = result
  3576. if carrier = "no carrier!" then do
  3577. signal getout
  3578. end
  3579. return
  3580.  
  3581. SYNTAX:
  3582. call message doorname,linenumber, ' ',1
  3583. call message doorname,linenumber, RED' ARRRRRGGGHHHH!'CYA'  There is a SYNTAX error!',1
  3584. call message doorname,linenumber, RED' Line:'CYA SIGL RED'   Error Code:'CYA RC,1
  3585. call message doorname,linenumber, BLU' Let the SYSOP know about it!'RESET,1
  3586. call hotkey doorname,linenumber,'Press return...'
  3587. signal getout
  3588.  
  3589. IOERR:
  3590. call message doorname,linenumber, ' ',1
  3591. call message doorname,linenumber, RED' ARGH! There is an I/O error!',1
  3592. call message doorname,linenumber, RED' Be sure to let 'dasysop' know about it!'RESET,1
  3593. call message doorname,linenumber, ' ',1
  3594. call hotkey doorname,linenumber,'Press return...'
  3595. signal getout
  3596.  
  3597. ERROR:
  3598.  
  3599.    call message doorname,linenumber,"",1
  3600.    Call message doorname,linenumber, '**ALERT** General Error!',1
  3601.    err_line = SIGL ; sev = RC
  3602.    Call message doorname,linenumber, 'Line: 'err_line'   Severity: 'sev,1
  3603.    call hotkey doorname,linenumber,'Press return...'
  3604. signal getout
  3605.  
  3606. FAILURE:
  3607.  
  3608.    Call message doorname,linenumber, '**ALERT** Failure!',1
  3609.    err_line = SIGL ; sev = RC
  3610.    Call message doorname,linenumber, 'Line: 'err_line'   Severity: 'sev,1
  3611.    call hotkey doorname,linenumber,'Press return...'
  3612. signal getout
  3613.  
  3614. GETOUT:
  3615. if exists(mainpath'INUSE') then do        
  3616. address command "delete doors:yuppie/INUSE"
  3617. call exit_door doorname,linenumber
  3618. exit 10
  3619.  
  3620. DIE:
  3621. call checkca
  3622. if bullopt = 1 then do
  3623. call pointck
  3624. call hick
  3625. call open top10, (BULLPATH),'W'
  3626. call writeln top10, '              Top 10 Yuppies          '
  3627. call writeln top10, '--------------------------------------------'
  3628.  do i = 1 to 10
  3629.     topscore.i = left(topscore.i,25)
  3630.     topalias.i = left(topalias.i,15)
  3631.     call writeln(top10,topscore.i' 'topalias.i)
  3632.     end
  3633.     call writeln top10, '--------------------------------------------'
  3634.     call writeln top10, ' '
  3635.     call close(top10)
  3636. end
  3637. if exists(mainpath'INUSE') then do        
  3638. address command "delete doors:yuppie/INUSE"
  3639. call exit_door DoorName,LineNumber
  3640. exit
  3641.  
  3642. QEXIT:
  3643. if exists(mainpath'INUSE') then do        
  3644. address command "delete doors:yuppie/INUSE"
  3645. call exit_door DoorName,LineNumber
  3646. exit 0
  3647.  
  3648.  
  3649.  
  3650. SLITS:           /* Thanks a lot for some of this routine Mike! */
  3651. call checkca
  3652. ESC = ''
  3653. RESET = ''
  3654. CLL = '                                                                     '
  3655. CLR = ';H'
  3656. HOM = 'H'
  3657. POS = 'H'
  3658. POS1 = 'H'
  3659. POS2 = 'H'
  3660. POS3 = 'H'
  3661. POS4 = 'H'
  3662. POS5 = 'H'
  3663. POS6 = 'H'
  3664. POS7 = 'H'
  3665. POS8 = '5H'
  3666. POS9 = '5H'
  3667. POS10 = '5H'
  3668. POS11 = '5H'
  3669. POS12 = '5H'
  3670. POS13 = '5H'
  3671. POS14 = '5H'
  3672. POS15 = '5H'
  3673. POS16 = '5H'
  3674. POS17 = '5H'
  3675. POS18 = '5H'
  3676. POS19 = '5H'
  3677. POS20 = '5H'
  3678. POS21 = '5H'
  3679. WHITEONRED = ''
  3680. BLACKONYELLOW = ''
  3681. YELLOWONBLUE = ''
  3682. CYANONBLACK = ''
  3683. YELLOWONBLACK = ''
  3684. PURPLEONBLACK = ''
  3685. BLUEONBLACK = ''
  3686. REDONYELLOW = ''
  3687. REDONBLUE = ''
  3688. BLACK = ''
  3689.  
  3690. bet = 0
  3691. Tl = 0
  3692. Dl = 0
  3693.  
  3694.  
  3695.  
  3696. BEAN:
  3697. call checkca
  3698. call message doorname,linenumber, CLS,1
  3699. call message doorname,linenumber, ' ',1
  3700. call message doorname,linenumber, '                          'BluCya'   Playing The Slots   'RESET,1
  3701. call message doorname,linenumber, ' ',1
  3702. Call message doorname,linenumber, MAG'You have $'money' 'BLU'['YEL'Q'BLU']'MAG' Quits -- Your bet (Max 5000)?'BLU'> ',0
  3703. call prompt doorname,linenumber,'',5
  3704. Bet = upper(result)
  3705. if Bet = 0 | Bet = 'Q' then do
  3706. maincount = 0
  3707. signal WHATTHEHELL
  3708. end
  3709. if Bet > money | Bet > 5000 then do
  3710. call message doorname,linenumber, ' ',1
  3711. call message doorname,linenumber, 'Sorry 'handle', you cant bet that much!',1
  3712. address command "wait 1"
  3713. signal BEAN
  3714.  end
  3715.  if Bet = '' | Bet = ' ' | Bet <= . then do
  3716. signal BEAN
  3717. end
  3718. else
  3719. call message doorname,linenumber, '  ',1
  3720. call message doorname,linenumber, POS3 CLL POS3 'Bet taken...',1
  3721. signal BEANS
  3722.  
  3723. BEANS:
  3724. call checkca
  3725. call message doorname,linenumber, POS4 CLL POS4 CYA'Press 'P' to pull for your chance at big bucks!',1
  3726. call hotkey doorname,linenumber, '>'
  3727. chr = upper(result)
  3728. if chr = 'P' then do
  3729. call message doorname,linenumber, POS6 CLL POS6'     Your slots: ',1
  3730. call ROLL
  3731. numslots = 1
  3732. do for 3
  3733. call ROLL
  3734. numslots=numslots+1
  3735. end
  3736. call OUTPUT
  3737. numslots = 1
  3738. do for 3
  3739. call ROLL
  3740. numslots=numslots+1
  3741. end
  3742. call OUTPUT
  3743. numslots = 1
  3744. do for 3
  3745. call ROLL
  3746. numslots=numslots+1
  3747. end
  3748. call OUTPUT
  3749. numslots = 1
  3750. do for 3
  3751. call ROLL
  3752. numslots=numslots+1
  3753. end
  3754. call OUTPUT
  3755. call COMPARE
  3756. end
  3757. else signal WHATTHEHELL
  3758.  
  3759. ROLL:
  3760. call checkca
  3761. slots.numslots = RANDOM(1,6,Time('s'))
  3762. slot.numslots = slots.numslots
  3763.   if slots.numslots = 1 then do
  3764.     slot.numslots = '='
  3765.   end
  3766.   if slots.numslots = 2 then do
  3767.     slot.numslots = '?'
  3768.   end
  3769.   if slots.numslots = 3 then do
  3770.     slot.numslots = '#'
  3771.   end
  3772.   if slots.numslots = 4 then do
  3773.     slot.numslots = '$'
  3774.   end
  3775.   if slots.numslots = 5 then do
  3776.     slot.numslots = '*'
  3777.   end
  3778.   if slots.numslots = 6 then do
  3779.     slot.numslots = '7'
  3780.   end
  3781.  
  3782. RETURN
  3783.  
  3784.  
  3785. OUTPUT:
  3786. call checkca
  3787. POS.1 = '30H'
  3788. POS.2 = '35H'
  3789. POS.3 = '40H'
  3790. do i = 1 to numslots-1
  3791. call message doorname,linenumber, POS.i||YEL'| 'RED||slot.i||YEL' |'CYA,1
  3792. end
  3793. call message doorname,linenumber, '',1
  3794. address command "wait 1"
  3795. RETURN
  3796.  
  3797.  
  3798.  
  3799.  
  3800. COMPARE:
  3801. call checkca
  3802. if slot.1 = slot.2 & slot.1 ~= slot.3 then signal WINNER
  3803. if slot.2 = slot.3 & slot.2 ~= slot.1 then signal WINNER
  3804. if slot.1 = slot.2 & slot.1 = slot.3 then signal WINNER1
  3805.  else money = money - bet
  3806. if purse = 0 | purse < 0 then signal OUTTACASH
  3807.  else signal LOSER
  3808.  
  3809. WINNER:
  3810. call checkca
  3811. call message doorname,linenumber, '',1
  3812. call message doorname,linenumber, '',1
  3813. call message doorname,linenumber, '',1
  3814. call message doorname,linenumber, 'You won double your bet which was 'bet*2'!',1
  3815. call message doorname,linenumber, ' ',1
  3816. money=money+(bet*2)
  3817. call DBL
  3818. signal WHATTHEHELL
  3819.  
  3820. WINNER1:
  3821. call checkca
  3822. call message doorname,linenumber, '',1
  3823. call message doorname,linenumber, '',1
  3824. call message doorname,linenumber, '',1
  3825. call message doorname,linenumber, 'You won triple your bet which was 'bet*3'!',1
  3826. call message doorname,linenumber, ' ',1
  3827. money=money+(bet*3)
  3828. call TPL
  3829. signal WHATTHEHELL
  3830.  
  3831. LOSER:
  3832. call checkca
  3833. call message doorname,linenumber, '',1
  3834. call message doorname,linenumber, '',1
  3835. call message doorname,linenumber, '',1
  3836. call message doorname,linenumber, 'You didnt win your bet!',1
  3837. address command "wait 1"
  3838.  
  3839. signal WHATTHEHELL
  3840.  
  3841. WHATTHEHELL:
  3842. call checkca
  3843. call message doorname,linenumber, '',1
  3844. call message doorname,linenumber, '',1
  3845. call hotkey doorname,linenumber, 'Do you want to continue playing (Y/N)?'
  3846. ans = upper(result)
  3847. if ans = 'Y' then do
  3848. maincount = 0
  3849. signal BEAN
  3850. end
  3851. if ans = 'N' then do
  3852. maincount = 0
  3853. signal VEGAS
  3854. end
  3855. if ans ~= 'N' | ans ~= 'Y' then do
  3856. signal WHATTHEHELL
  3857. end
  3858. signal WHATTHEHELL
  3859.  
  3860. TPL:
  3861. call checkca
  3862. Tl=Tl+1
  3863. if Tl = 5 then call BROKEN
  3864. RETURN
  3865.  
  3866. DBL:
  3867. call checkca
  3868. Dl=Dl+1
  3869. if Dl = 8 then call BROKEN
  3870. RETURN
  3871.  
  3872. OUTTACASH:
  3873. call checkca
  3874. call message doorname,linenumber, CLS,1
  3875. call message doorname,linenumber, '    ',1
  3876. call message doorname,linenumber, POS17 CLL POS17 'You aint got no money left! Boy, you sure did a lousy job!',1
  3877. call message doorname,linenumber, '    ',1
  3878. address command "wait 1"
  3879. call message doorname,linenumber, POS18 CLL POS18 'Well since you are outta cash, we will help you outta here!',1
  3880. signal VEGAS
  3881.  
  3882. BROKEN:
  3883. call checkca
  3884. call message doorname,linenumber, CLS,1
  3885. call message doorname,linenumber, '    ',1
  3886. call message doorname,linenumber, POS14 CLL POS14 'The Casino Manager wants to talk to you now!',1
  3887. call message doorname,linenumber, '    ',1
  3888. address command "wait 1"
  3889. call message doorname,linenumber, POS15 CLL POS15 'It appears he isnt too happy with your Playing Skills!',1
  3890. address command "wait 1"
  3891. call message doorname,linenumber, POS16 CLL POS16 'Im afraid I will have to ask you to leave now, you won too much!',1
  3892. call message doorname,linenumber, POS17 CLL POS17 'You Broke the Bank!! Try again later if you feel lucky....',1
  3893. call message doorname,linenumber, '     ',1
  3894. address command "wait 1"
  3895. signal VEGAS
  3896.  
  3897. CRAPS:          /* Thanks to D.F. Duck for some of this routine! */
  3898. call checkca
  3899. if money <= 0 then do
  3900.    turnsleft = turnsleft + 1
  3901.    call message doorname,linenumber, CLS,1
  3902.    call message doorname,linenumber, ' ',1
  3903.    call message doorname,linenumber, RED center('YOU NEED MONEY TO PLAY THIS GAME!',78),1
  3904.    call message doorname,linenumber, ' ',1
  3905.    address command "wait 1"
  3906.    return
  3907.   end
  3908. call message doorname,linenumber, CLS,1
  3909. call message doorname,linenumber, '                         'BluCya'   Playing Craps   'RESET,1
  3910. call message doorname,linenumber, ' ',1
  3911. call MAIN
  3912. return
  3913.  
  3914. Main:
  3915. call checkca
  3916.         RollNum = 0
  3917.         RollOld = 0
  3918.         call Bet
  3919.         call RollIt
  3920. return
  3921.  
  3922. Bet:
  3923. call checkca
  3924.         call message doorname,linenumber, ' ',1
  3925.                 call message doorname,linenumber, BLU' You have $'CYA''money''BLU'.  Maximum bet is $'CYA'5000'BLU'.',1
  3926.                 Call message doorname,linenumber, CYA' How much do you wish to bet 'BLU'['YEL'Q'BLU']'CYA' To Quit?:'RESET,0
  3927.                 call prompt doorname,linenumber,'',5
  3928.                 TimeBet = upper(result)
  3929.                 if TimeBet = 'Q' then do
  3930.                 maincount = 0
  3931.                 signal VEGAS
  3932.                 end
  3933.                  if money < TimeBet then do
  3934.                    call message doorname,linenumber, CLS,1
  3935.                    call message doorname,linenumber, ' ',1
  3936.                    call message doorname,linenumber, RED'              YOU DONT HAVE ENOUGH MONEY TO BET THAT MUCH!'RESET,1
  3937.                    call message doorname,linenumber, ' ',1
  3938.                    address command "wait 1"
  3939.                    call BET
  3940.                    return
  3941.                 end
  3942.                 if TimeBet = 1 then Minutes = 'Dollar'
  3943.                 else Minutes = 'Dollars'
  3944.                 if TimeBet < 1 then do
  3945.                 call BET
  3946.                 end
  3947.                 if TimeBet > 5000 then do
  3948.                 maincount = 0
  3949.                 call BET
  3950.                 end
  3951.                 if TimeBet = '' | TimeBet = ' ' then do
  3952.                 maincount = 0 
  3953.                 signal VEGAS
  3954.                 end
  3955.  
  3956. return
  3957.  
  3958. RollIt:
  3959. call checkca
  3960.    do forever
  3961.         call message doorname,linenumber, ' ',1
  3962.         call hotkey doorname,linenumber, 'Press ['RED'RETURN'RESET'] To Roll...'
  3963.         YesPlay = result
  3964.          call Roller
  3965.     end
  3966. return
  3967.  
  3968. Roller:
  3969. call checkca
  3970.         call message doorname,linenumber, CLS,1
  3971.         RollNum = RollNum + 1
  3972.         call message doorname,linenumber, 'Roll #'RollNum,1
  3973.         call message doorname,linenumber, ' ',1
  3974.         Rand1 = RANDOM(1,6,Time('s'))
  3975.         DicePos = ''
  3976.         DiceSet = insert('Dice',Rand1)
  3977.         interpret 'call' DiceSet
  3978.         Rand2 = RANDOM(1,6,Time('s'))
  3979.         DicePos = '        '
  3980.         DiceSet = insert('Dice',Rand2)
  3981.         interpret 'call' DiceSet
  3982.         call message doorname,linenumber, ' ',1
  3983.         RandSum = Rand1 + Rand2
  3984.         call message doorname,linenumber, 'You Rolled A 'RandSum'.',1
  3985.         call message doorname,linenumber, ' ',1
  3986.         if RandSum = 7 | RandSum = 11 then do
  3987.                 if RollNum = 1 then call Win
  3988.                 else call Lost
  3989.                 end
  3990.         if RollNum = 1 then RollOld = RandSum
  3991.         if RollOld = RandSum then do
  3992.                 if RollNum ~= 1 then call Win
  3993.                 end
  3994.         call message doorname,linenumber, 'You Need Another 'GRE''RollOld''RESET' To Win!',1
  3995. return
  3996.  
  3997.  
  3998. Win:
  3999. call checkca
  4000.         if RollNum = 1 then do
  4001.                 call message doorname,linenumber, 'You Rolled A 'RandSum' On The 1st Roll Which 'GRE'Doubles'RESET' Your Bet!',1
  4002.                 TimeBet = TimeBet * 2
  4003.         end
  4004.         call message doorname,linenumber, 'Craps! You 'RED'Won 'TimeBet' 'Minutes''RESET'!',1
  4005.         money = money + TimeBet
  4006.         if TimeBet = 1 then Minutes = 'Dollar'
  4007.         else Minutes = 'Dollars'
  4008.         call Again
  4009.         signal VEGAS
  4010. return
  4011.  
  4012.  
  4013. Lost:
  4014. call checkca
  4015.         call message doorname,linenumber, 'You Crapped Out, You 'GRE'Lost 'TimeBet' 'Minutes''RESET'!',1
  4016.         if TimeBet = 1 then Minutes = 'Dollar'
  4017.         else Minutes = 'Dollars'
  4018.         money = money - TimeBet
  4019.         call Again
  4020.         signal Vegas
  4021. return
  4022.  
  4023.  
  4024. Again:
  4025. call checkca 
  4026.        call message doorname,linenumber, ' ',1
  4027.         call hotkey doorname,linenumber, GRE'Do You Want To Play Again (Y/N)? '
  4028.         PlayAgain = upper(result)
  4029.         if PlayAgain = 'Y' then call CRAPS
  4030.         if PlayAgain = 'N' then signal VEGAS
  4031. return
  4032.  
  4033. Dice1:
  4034. call checkca 
  4035.        call message doorname,linenumber, DicePos''WHIBLK'       'RESET,1
  4036.         call message doorname,linenumber, DicePos''WHIBLK'   *   'RESET,1
  4037.         call message doorname,linenumber, DicePos''WHIBLK'       'RESET,1
  4038. return
  4039.  
  4040. Dice2:
  4041. call checkca 
  4042.        call message doorname,linenumber, DicePos''WHIBLK'     * 'RESET,1
  4043.         call message doorname,linenumber, DicePos''WHIBLK'       'RESET,1
  4044.         call message doorname,linenumber, DicePos''WHIBLK' *     'RESET,1
  4045. return
  4046.  
  4047. Dice3:
  4048. call checkca  
  4049.       call message doorname,linenumber, DicePos''WHIBLK'     * 'RESET,1
  4050.         call message doorname,linenumber, DicePos''WHIBLK'   *   'RESET,1
  4051.         call message doorname,linenumber, DicePos''WHIBLK' *     'RESET,1
  4052. return
  4053.  
  4054. Dice4:
  4055. call checkca    
  4056.     call message doorname,linenumber, DicePos''WHIBLK' *   * 'RESET,1
  4057.         call message doorname,linenumber, DicePos''WHIBLK'       'RESET,1
  4058.         call message doorname,linenumber, DicePos''WHIBLK' *   * 'RESET,1
  4059. return
  4060.  
  4061. Dice5:
  4062. call checkca    
  4063.     call message doorname,linenumber, DicePos''WHIBLK' *   * 'RESET,1
  4064.         call message doorname,linenumber, DicePos''WHIBLK'   *   'RESET,1
  4065.         call message doorname,linenumber, DicePos''WHIBLK' *   * 'RESET,1
  4066. return
  4067.  
  4068. Dice6:
  4069. call checkca    
  4070.     call message doorname,linenumber, DicePos''WHIBLK' *   * 'RESET,1
  4071.         call message doorname,linenumber, DicePos''WHIBLK' *   * 'RESET,1
  4072.         call message doorname,linenumber, DicePos''WHIBLK' *   * 'RESET,1
  4073. return
  4074.